mirror of
https://github.com/curl/curl.git
synced 2026-06-07 15:24:19 +03:00
test*: make all Perl warnings fatal
This commit is contained in:
parent
13afb1bf10
commit
364c5442c5
17 changed files with 19 additions and 16 deletions
|
|
@ -30,6 +30,9 @@
|
|||
#
|
||||
# In the git clone root, invoke 'scripts/delta [release tag]'
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
$start = $ARGV[0];
|
||||
|
||||
if($start eq "-h") {
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
use vars qw($Cpreprocessor);
|
||||
|
||||
#
|
||||
|
|
|
|||
|
|
@ -31,7 +31,7 @@
|
|||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
my $dir = $ARGV[0] || die "specify directory!";
|
||||
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
###########################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
my $sort = 0;
|
||||
|
||||
|
|
|
|||
|
|
@ -39,7 +39,7 @@
|
|||
# Output all deviances to stderr.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
# we may get the dir roots pointed out
|
||||
my $root=$ARGV[0] || ".";
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
###########################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
# the DISABLE options that can be set by configure
|
||||
my %disable;
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
use vars qw($Cpreprocessor);
|
||||
|
||||
#
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
# Output all deviances to stderr.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
use File::Basename;
|
||||
|
||||
# get the file name first
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
###########################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
# we may get the dir root pointed out
|
||||
my $root=$ARGV[0] || ".";
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
my $manpage=$ARGV[0];
|
||||
my $header=$ARGV[1];
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
# files, manpages and symbols-in-versions are in sync.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
use File::Basename;
|
||||
|
||||
|
|
|
|||
|
|
@ -27,7 +27,7 @@
|
|||
# error codes.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
# we may get the dir roots pointed out
|
||||
my $root=$ARGV[0] || ".";
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
###########################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
# we may get the dir root pointed out
|
||||
my $root=$ARGV[0] || ".";
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
use vars qw($Cpreprocessor);
|
||||
use allversions;
|
||||
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
# string options.
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
my $root=$ARGV[0] || ".";
|
||||
my $incdir = "$root/include/curl";
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@
|
|||
#
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
my $curl = shift @ARGV;
|
||||
my $opt = shift @ARGV;
|
||||
|
|
|
|||
|
|
@ -24,7 +24,7 @@
|
|||
###########################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use warnings 'FATAL' => 'all';
|
||||
|
||||
# we may get the dir root pointed out
|
||||
my $root=$ARGV[0] || ".";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue