use warnings everywhere.
authorDietmar Maurer <dietmar@proxmox.com>
Tue, 1 Oct 2013 11:19:38 +0000 (13:19 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Tue, 1 Oct 2013 11:19:38 +0000 (13:19 +0200)
data/PVE/AtomicFile.pm
data/PVE/Exception.pm
data/PVE/INotify.pm
data/PVE/JSONSchema.pm
data/PVE/Network.pm
data/PVE/PodParser.pm
data/PVE/ProcFSTools.pm
data/PVE/RESTHandler.pm
data/PVE/Tools.pm

index 2d3426b..110a8ae 100644 (file)
@@ -1,6 +1,7 @@
 package PVE::AtomicFile;
 
 use strict;
+use warnings;
 use IO::AtomicFile;
 use vars qw(@ISA);
 
index 63b3843..fa6b73a 100644 (file)
@@ -1,12 +1,11 @@
-#!/usr/bin/perl -w
+package PVE::Exception;
 
 # a way to add more information to exceptions (see man perlfunc (die))
 # use PVE::Exception qw(raise);
 # raise ("my error message", code => 400, errors => { param1 => "err1", ...} );
 
-package PVE::Exception;
-
 use strict;
+use warnings;
 use vars qw(@ISA @EXPORT_OK);
 require Exporter;
 use Storable qw(dclone);       
index 0f04dd2..5b17433 100644 (file)
@@ -3,6 +3,8 @@ package PVE::INotify;
 # todo: maybe we do not need update_file() ?
 
 use strict;
+use warnings;
+
 use POSIX;
 use IO::File;
 use IO::Dir;
index 6866f18..bb00c69 100644 (file)
@@ -1,7 +1,7 @@
 package PVE::JSONSchema;
 
-use warnings;
 use strict;
+use warnings;
 use Storable; # for dclone
 use Getopt::Long;
 use Devel::Cycle -quiet; # todo: remove?
index 1fa1dc7..1b755c0 100644 (file)
@@ -1,6 +1,7 @@
 package PVE::Network;
 
 use strict;
+use warnings;
 use PVE::Tools qw(run_command);
 use PVE::ProcFSTools;
 use PVE::INotify;
index d3cbb60..7e31e19 100644 (file)
@@ -1,6 +1,7 @@
 package PVE::PodParser;
 
 use strict;
+use warnings;
 use Pod::Parser;
 use base qw(Pod::Parser);
 
index 2c2b376..79d8cfd 100644 (file)
@@ -1,6 +1,7 @@
 package PVE::ProcFSTools;
 
 use strict;
+use warnings;
 use POSIX;
 use Time::HiRes qw (gettimeofday);
 use IO::File;
index 7157847..08c1015 100644 (file)
@@ -2,7 +2,6 @@ package PVE::RESTHandler;
 
 use strict;
 no strict 'refs'; # our autoload requires this
-
 use warnings;
 use PVE::SafeSyslog;
 use PVE::Exception qw(raise raise_param_exc);
index 0ec74d8..fd3c056 100644 (file)
@@ -1,6 +1,7 @@
 package PVE::Tools;
 
 use strict;
+use warnings;
 use POSIX qw(EINTR);
 use IO::Socket::INET;
 use IO::Select;