test*: make all Perl warnings fatal

This commit is contained in:
Viktor Szakats 2025-07-09 23:19:47 +02:00
parent 13afb1bf10
commit 364c5442c5
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
17 changed files with 19 additions and 16 deletions

View file

@ -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") {

View file

@ -28,7 +28,7 @@
#
use strict;
use warnings;
use warnings 'FATAL' => 'all';
use vars qw($Cpreprocessor);
#

View file

@ -31,7 +31,7 @@
#
use strict;
use warnings;
use warnings 'FATAL' => 'all';
my $dir = $ARGV[0] || die "specify directory!";

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings;
use warnings 'FATAL' => 'all';
my $sort = 0;

View file

@ -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] || ".";

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings;
use warnings 'FATAL' => 'all';
# the DISABLE options that can be set by configure
my %disable;

View file

@ -28,7 +28,7 @@
#
use strict;
use warnings;
use warnings 'FATAL' => 'all';
use vars qw($Cpreprocessor);
#

View file

@ -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

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings;
use warnings 'FATAL' => 'all';
# we may get the dir root pointed out
my $root=$ARGV[0] || ".";

View file

@ -28,7 +28,7 @@
#
use strict;
use warnings;
use warnings 'FATAL' => 'all';
my $manpage=$ARGV[0];
my $header=$ARGV[1];

View file

@ -28,7 +28,7 @@
# files, manpages and symbols-in-versions are in sync.
use strict;
use warnings;
use warnings 'FATAL' => 'all';
use File::Basename;

View file

@ -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] || ".";

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings;
use warnings 'FATAL' => 'all';
# we may get the dir root pointed out
my $root=$ARGV[0] || ".";

View file

@ -28,7 +28,7 @@
#
use strict;
use warnings;
use warnings 'FATAL' => 'all';
use vars qw($Cpreprocessor);
use allversions;

View file

@ -28,7 +28,7 @@
# string options.
use strict;
use warnings;
use warnings 'FATAL' => 'all';
my $root=$ARGV[0] || ".";
my $incdir = "$root/include/curl";

View file

@ -28,7 +28,7 @@
#
use strict;
use warnings;
use warnings 'FATAL' => 'all';
my $curl = shift @ARGV;
my $opt = shift @ARGV;

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings;
use warnings 'FATAL' => 'all';
# we may get the dir root pointed out
my $root=$ARGV[0] || ".";