use warnings instead of global -w flag

diff --git a/PVE/QMPClient.pm b/PVE/QMPClient.pm
index 4305cd63acb43543610030c63ce8f95f179314cc..4e24419996b04c12d8b9d5cf54085decb3c557d9 100755 (executable)
--- a/PVE/QMPClient.pm
+++ b/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);

diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 29dcc28e52225f5ad096bc5349a9fcc42fd4230b..bafc038a5e12e5bf86b246e4beea772243a93db1 100644 (file)
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -1,6 +1,7 @@
 package PVE::QemuServer;
 
 use strict;
+use warnings;
 use POSIX;
 use IO::Handle;
 use IO::Select;

diff --git a/changelog.Debian b/changelog.Debian
index 42a1c6d81fd9dfba242fead412a15bd1d0ef6d8e..bd50567a445d7832fe814d8832a5448930145716 100644 (file)
--- a/changelog.Debian
+++ b/changelog.Debian
@@ -1,6 +1,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
 

diff --git a/gen-vmconf-pod.pl b/gen-vmconf-pod.pl
index a01b787ac350827b4f33aa53a355116e63eda45d..337d6811a3317b574dd740c7e79300607c37de73 100755 (executable)
--- a/gen-vmconf-pod.pl
+++ b/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;

diff --git a/pcitest.pl b/pcitest.pl
index a354c6886b1a1d7d87f4dd6e600d8dd769c46ef5..c87a800da61e89210f19269d41c8c6004146ce19 100755 (executable)
--- a/pcitest.pl
+++ b/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);

diff --git a/pve-bridge b/pve-bridge
index f4ea56e8bc9e386bb615775e9642c7d62c0a6aba..81ad5f4501284a7e3b747698750d285a3ec9b7b2 100755 (executable)
--- a/pve-bridge
+++ b/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;

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;

diff --git a/qmextract b/qmextract
index f12724ee35b62575a2fd6306d77d24f0141457f4..d6ee32907d3283afe0cc6488a6f7364abdac7d25 100755 (executable)
--- a/qmextract
+++ b/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;

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;

diff --git a/qmupdate b/qmupdate
index 0b806ddd16493bdf0aedf0f53ae2769e16a59b23..181d37ba247906ff9797433d3f474f0a4418e962 100755 (executable)
--- a/qmupdate
+++ b/qmupdate
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 use IO::File;
 use Digest::SHA;