use warnings instead of global -w flag

PVE/QMPClient.pm

@@ -1,6 +1,7 @@
 package PVE::QMPClient;
 
 use strict;
+use warnings;
 use PVE::QemuServer;
 use IO::Multiplex;
 use POSIX qw(EINTR EAGAIN);

PVE/QemuServer.pm

@@ -1,6 +1,7 @@
 package PVE::QemuServer;
 
 use strict;
+use warnings;
 use POSIX;
 use IO::Handle;
 use IO::Select;

changelog.Debian

@@ -2,6 +2,8 @@ qemu-server (3.1-6) unstable; urgency=low
 
   * use new PVE::Storage::abs_filesystem_path()
   
+  * use warnings instead of global -w flag
+
  -- Proxmox Support Team <support@proxmox.com>  Tue, 01 Oct 2013 12:42:42 +0200
 
 qemu-server (3.1-5) unstable; urgency=low

gen-vmconf-pod.pl

@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 package main;
 
 use strict;
+use warnings;
 use PVE::Tools;
 use PVE::Cluster;
 use PVE::PodParser;

pcitest.pl

@@ -1,8 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # this is some experimental code to test pci pass through
 
 use strict;
+use warnings;
 use IO::Dir;
 use IO::File;
 use Time::HiRes qw(usleep);

pve-bridge

@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use PVE::QemuServer;
 use PVE::Tools qw(run_command);
 use PVE::Network;

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;

qmextract

@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use Getopt::Long;
 use File::Path;
 use IO::File;

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;

qmupdate

@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use IO::File;
 use Digest::SHA;