From c10e185207d0d26e4d591b9b91fc91db27f06106 Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Tue, 22 Apr 2014 11:51:05 +0200
Subject: [PATCH] Fix warning (readline on unopened filehandle)

---
 virt-backup | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/virt-backup b/virt-backup
index e78bf95..cd8f3cc 100644
--- a/virt-backup
+++ b/virt-backup
@@ -802,7 +802,7 @@ sub create_snapshot{
         }
     }
     # In any case, failed or not, remove our lock
-    unlink <$lock>;
+    unlink $lock if (-e $lock);
     return $ret;
 }