From 364c5442c56e0563291fcf5d8d79f3ba3deda293 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Wed, 9 Jul 2025 23:19:47 +0200 Subject: [PATCH] test*: make all Perl warnings fatal --- scripts/delta | 3 +++ tests/test1119.pl | 2 +- tests/test1132.pl | 2 +- tests/test1135.pl | 2 +- tests/test1139.pl | 2 +- tests/test1165.pl | 2 +- tests/test1167.pl | 2 +- tests/test1173.pl | 2 +- tests/test1175.pl | 2 +- tests/test1177.pl | 2 +- tests/test1222.pl | 2 +- tests/test1477.pl | 2 +- tests/test1486.pl | 2 +- tests/test1488.pl | 2 +- tests/test1544.pl | 2 +- tests/test1707.pl | 2 +- tests/test745.pl | 2 +- 17 files changed, 19 insertions(+), 16 deletions(-) diff --git a/scripts/delta b/scripts/delta index f950077774..3aab7e5795 100755 --- a/scripts/delta +++ b/scripts/delta @@ -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") { diff --git a/tests/test1119.pl b/tests/test1119.pl index d1cdf4e11c..00eaf16ba7 100755 --- a/tests/test1119.pl +++ b/tests/test1119.pl @@ -28,7 +28,7 @@ # use strict; -use warnings; +use warnings 'FATAL' => 'all'; use vars qw($Cpreprocessor); # diff --git a/tests/test1132.pl b/tests/test1132.pl index e808c2e8c8..0765957f2b 100755 --- a/tests/test1132.pl +++ b/tests/test1132.pl @@ -31,7 +31,7 @@ # use strict; -use warnings; +use warnings 'FATAL' => 'all'; my $dir = $ARGV[0] || die "specify directory!"; diff --git a/tests/test1135.pl b/tests/test1135.pl index b64e4bf8a8..938698fdcf 100755 --- a/tests/test1135.pl +++ b/tests/test1135.pl @@ -24,7 +24,7 @@ ########################################################################### use strict; -use warnings; +use warnings 'FATAL' => 'all'; my $sort = 0; diff --git a/tests/test1139.pl b/tests/test1139.pl index cabb893d69..78a8bb0de0 100755 --- a/tests/test1139.pl +++ b/tests/test1139.pl @@ -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] || "."; diff --git a/tests/test1165.pl b/tests/test1165.pl index a15071c256..97830ce82f 100755 --- a/tests/test1165.pl +++ b/tests/test1165.pl @@ -24,7 +24,7 @@ ########################################################################### use strict; -use warnings; +use warnings 'FATAL' => 'all'; # the DISABLE options that can be set by configure my %disable; diff --git a/tests/test1167.pl b/tests/test1167.pl index e2965b784a..cc0d6d7069 100755 --- a/tests/test1167.pl +++ b/tests/test1167.pl @@ -28,7 +28,7 @@ # use strict; -use warnings; +use warnings 'FATAL' => 'all'; use vars qw($Cpreprocessor); # diff --git a/tests/test1173.pl b/tests/test1173.pl index 9b384ded78..0f4fc5c492 100755 --- a/tests/test1173.pl +++ b/tests/test1173.pl @@ -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 diff --git a/tests/test1175.pl b/tests/test1175.pl index c981046b7e..ec1c0ada75 100755 --- a/tests/test1175.pl +++ b/tests/test1175.pl @@ -24,7 +24,7 @@ ########################################################################### use strict; -use warnings; +use warnings 'FATAL' => 'all'; # we may get the dir root pointed out my $root=$ARGV[0] || "."; diff --git a/tests/test1177.pl b/tests/test1177.pl index 83c3ee8ba5..564f32c032 100755 --- a/tests/test1177.pl +++ b/tests/test1177.pl @@ -28,7 +28,7 @@ # use strict; -use warnings; +use warnings 'FATAL' => 'all'; my $manpage=$ARGV[0]; my $header=$ARGV[1]; diff --git a/tests/test1222.pl b/tests/test1222.pl index 0d9d6fdd32..dcbb6dd7be 100755 --- a/tests/test1222.pl +++ b/tests/test1222.pl @@ -28,7 +28,7 @@ # files, manpages and symbols-in-versions are in sync. use strict; -use warnings; +use warnings 'FATAL' => 'all'; use File::Basename; diff --git a/tests/test1477.pl b/tests/test1477.pl index 8d3e1deca5..4faa02db6d 100755 --- a/tests/test1477.pl +++ b/tests/test1477.pl @@ -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] || "."; diff --git a/tests/test1486.pl b/tests/test1486.pl index 4ff55c3b12..e845f53bf4 100755 --- a/tests/test1486.pl +++ b/tests/test1486.pl @@ -24,7 +24,7 @@ ########################################################################### use strict; -use warnings; +use warnings 'FATAL' => 'all'; # we may get the dir root pointed out my $root=$ARGV[0] || "."; diff --git a/tests/test1488.pl b/tests/test1488.pl index ef0722e663..6edc575c5e 100755 --- a/tests/test1488.pl +++ b/tests/test1488.pl @@ -28,7 +28,7 @@ # use strict; -use warnings; +use warnings 'FATAL' => 'all'; use vars qw($Cpreprocessor); use allversions; diff --git a/tests/test1544.pl b/tests/test1544.pl index beb088d5b8..c251483847 100755 --- a/tests/test1544.pl +++ b/tests/test1544.pl @@ -28,7 +28,7 @@ # string options. use strict; -use warnings; +use warnings 'FATAL' => 'all'; my $root=$ARGV[0] || "."; my $incdir = "$root/include/curl"; diff --git a/tests/test1707.pl b/tests/test1707.pl index d9090d4f9b..8ead104f22 100755 --- a/tests/test1707.pl +++ b/tests/test1707.pl @@ -28,7 +28,7 @@ # use strict; -use warnings; +use warnings 'FATAL' => 'all'; my $curl = shift @ARGV; my $opt = shift @ARGV; diff --git a/tests/test745.pl b/tests/test745.pl index 02ed3be5c3..5f3fa3bf1b 100755 --- a/tests/test745.pl +++ b/tests/test745.pl @@ -24,7 +24,7 @@ ########################################################################### use strict; -use warnings; +use warnings 'FATAL' => 'all'; # we may get the dir root pointed out my $root=$ARGV[0] || ".";