do not use -w switch as it breaks modules

-w enabled warnings for all modules - even when these modules comes from the OS and are not compatible
with warnings. This is the reason to NOT use -w and instead use "use warnings".
This commit is contained in:
Stefan Priebe 2013-09-30 11:50:42 +02:00 committed by Dietmar Maurer
parent 92b7772b12
commit cc04752964
11 changed files with 22 additions and 11 deletions

View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use PVE::Cluster;
use PVE::APLInfo;

View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use PVE::Tools qw(extract_param);
use PVE::Cluster qw(cfs_register_file cfs_read_file);

View File

@ -1,10 +1,11 @@
#!/usr/bin/perl -T -w
#!/usr/bin/perl -T
$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
use strict;
use warnings;
use Getopt::Long;
use POSIX ":sys_wait_h";
use Socket;

View File

@ -1,4 +1,4 @@
#!/usr/bin/perl -w -T
#!/usr/bin/perl -T
use strict;
use warnings;

View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use File::Sync;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
use Net::DNS::Resolver;

View File

@ -1,10 +1,11 @@
#!/usr/bin/perl -T -w
#!/usr/bin/perl -T
$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
use strict;
use warnings;
use English;
use Getopt::Long;
use POSIX ":sys_wait_h";

View File

@ -1,9 +1,10 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
# TODO:
# implement persistent history ?
use strict;
use warnings;
use Term::ReadLine;
use File::Basename;
use Getopt::Long;

View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use PVE::SafeSyslog;
use POSIX ":sys_wait_h";
use Fcntl ':flock';

View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use PVE::Tools;
use PVE::SafeSyslog;

View File

@ -1,6 +1,8 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use File::stat ();
use Getopt::Long;

View File

@ -1,6 +1,7 @@
#!/usr/bin/perl -w
#!/usr/bin/perl
use strict;
use warnings;
use POSIX;
use Getopt::Long;
use PVE::API2::APT;