drive-mirror : wait that busy eq false before block-job-complete

[qemu-server.git] / qmrestore

diff --git a/qmrestore b/qmrestore
index 76b5e87d3a9dbb3a5758b98f4bb0e09e192f384e..59a47b6e3a5c543b4c22241840003045128df3d6 100755 (executable)
--- a/qmrestore
+++ b/qmrestore
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use PVE::SafeSyslog;
 use PVE::Tools qw(extract_param);
 use PVE::INotify;