use warnings instead of global -w flag

[qemu-server.git] / qm

diff --git a/qm b/qm
index 1340d226f429bba8a32e08233e548dfdae28d339..6830c6c155afdd00539a397c5fcf88b8eed32c1d 100755 (executable)
--- a/qm
+++ b/qm
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use Getopt::Long;
 use Fcntl ':flock';
 use File::Path;