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:
parent
92b7772b12
commit
cc04752964
@ -1,6 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use PVE::Cluster;
|
||||
use PVE::APLInfo;
|
||||
|
||||
|
@ -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);
|
||||
|
@ -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;
|
||||
|
@ -1,4 +1,4 @@
|
||||
#!/usr/bin/perl -w -T
|
||||
#!/usr/bin/perl -T
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
@ -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;
|
||||
|
@ -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";
|
||||
|
@ -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;
|
||||
|
@ -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';
|
||||
|
@ -1,6 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use PVE::Tools;
|
||||
use PVE::SafeSyslog;
|
||||
|
@ -1,6 +1,8 @@
|
||||
#!/usr/bin/perl -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use File::stat ();
|
||||
use Getopt::Long;
|
||||
|
||||
|
@ -1,6 +1,7 @@
|
||||
#!/usr/bin/perl -w
|
||||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use POSIX;
|
||||
use Getopt::Long;
|
||||
use PVE::API2::APT;
|
||||
|
Loading…
x
Reference in New Issue
Block a user