Commit cc047529 authored by Stefan Priebe's avatar Stefan Priebe Committed by Dietmar Maurer

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".
parent 92b7772b
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use PVE::Cluster; use PVE::Cluster;
use PVE::APLInfo; use PVE::APLInfo;
......
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use PVE::Tools qw(extract_param); use PVE::Tools qw(extract_param);
use PVE::Cluster qw(cfs_register_file cfs_read_file); use PVE::Cluster qw(cfs_register_file cfs_read_file);
......
#!/usr/bin/perl -T -w #!/usr/bin/perl -T
$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin'; $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
use strict; use strict;
use warnings;
use Getopt::Long; use Getopt::Long;
use POSIX ":sys_wait_h"; use POSIX ":sys_wait_h";
use Socket; use Socket;
......
#!/usr/bin/perl -w -T #!/usr/bin/perl -T
use strict; use strict;
use warnings; use warnings;
......
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use File::Sync; use File::Sync;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval ); use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );
use Net::DNS::Resolver; use Net::DNS::Resolver;
......
#!/usr/bin/perl -T -w #!/usr/bin/perl -T
$ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin'; $ENV{'PATH'} = '/sbin:/bin:/usr/sbin:/usr/bin';
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
use strict; use strict;
use warnings;
use English; use English;
use Getopt::Long; use Getopt::Long;
use POSIX ":sys_wait_h"; use POSIX ":sys_wait_h";
......
#!/usr/bin/perl -w #!/usr/bin/perl
# TODO: # TODO:
# implement persistent history ? # implement persistent history ?
use strict; use strict;
use warnings;
use Term::ReadLine; use Term::ReadLine;
use File::Basename; use File::Basename;
use Getopt::Long; use Getopt::Long;
......
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use PVE::SafeSyslog; use PVE::SafeSyslog;
use POSIX ":sys_wait_h"; use POSIX ":sys_wait_h";
use Fcntl ':flock'; use Fcntl ':flock';
......
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use PVE::Tools; use PVE::Tools;
use PVE::SafeSyslog; use PVE::SafeSyslog;
......
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use File::stat (); use File::stat ();
use Getopt::Long; use Getopt::Long;
......
#!/usr/bin/perl -w #!/usr/bin/perl
use strict; use strict;
use warnings;
use POSIX; use POSIX;
use Getopt::Long; use Getopt::Long;
use PVE::API2::APT; use PVE::API2::APT;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment