drop FATAL, do it separate PR

This commit is contained in:
Viktor Szakats 2025-07-11 14:21:05 +02:00
parent f63d275137
commit 7070a7ea14
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
46 changed files with 46 additions and 46 deletions

View file

@ -26,7 +26,7 @@
package appveyor;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -26,7 +26,7 @@
package azure;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use File::Basename;
use File::Spec;

View file

@ -25,7 +25,7 @@
package configurehelp;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use Exporter;
use vars qw(

View file

@ -34,7 +34,7 @@
# curl -vkL https://localhost:<protoport>/11
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use 5.006;
BEGIN {

View file

@ -25,7 +25,7 @@
package directories;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -41,7 +41,7 @@
#
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

View file

@ -25,7 +25,7 @@
package getpart;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -28,7 +28,7 @@
package globalconfig;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -24,7 +24,7 @@
#***************************************************************************
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

View file

@ -24,7 +24,7 @@
#***************************************************************************
use strict;
use warnings 'FATAL' => 'all';
use warnings;
# This script invokes nghttpx properly to have it serve HTTP/2 for us.
# nghttpx runs as a proxy in front of our "actual" HTTP/1 server.

View file

@ -24,7 +24,7 @@
#***************************************************************************
use strict;
use warnings 'FATAL' => 'all';
use warnings;
# This script invokes nghttpx properly to have it serve HTTP/3 for us.
# nghttpx runs as a proxy in front of our "actual" HTTP/1 server.

View file

@ -30,7 +30,7 @@
# MEM sendf.c:232 free(f6520)
use strict;
use warnings 'FATAL' => 'all';
use warnings;
my $mallocs=0;
my $callocs=0;

View file

@ -50,7 +50,7 @@
package pathhelp;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use File::Spec;
BEGIN {

View file

@ -25,7 +25,7 @@
package processhelp;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -24,7 +24,7 @@
#***************************************************************************
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

View file

@ -35,7 +35,7 @@
package runner;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use 5.006;
use File::Basename;

View file

@ -57,7 +57,7 @@
# given, this won't be a problem.
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use 5.006;
use POSIX qw(strftime);

View file

@ -28,7 +28,7 @@
# non-secure test harness servers.
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

View file

@ -27,7 +27,7 @@
package serverhelp;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -31,7 +31,7 @@ package servers;
use IO::Socket;
use Time::HiRes;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -25,7 +25,7 @@
package sshhelp;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -27,7 +27,7 @@
# Also creates the ssh configuration files needed for these tests.
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use Cwd;
use Cwd 'abs_path';
use Digest::MD5;

View file

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

View file

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

View file

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

View file

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

View file

@ -27,7 +27,7 @@
# codes or references to non-existing curl manpages.
use strict;
use warnings 'FATAL' => 'all';
use warnings;
my $docsroot = $ARGV[0] || '.';

View file

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

View file

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

View file

@ -28,7 +28,7 @@
# Output all deviances to stderr.
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use File::Basename;
# get the file name first

View file

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

View file

@ -28,7 +28,7 @@
#
use strict;
use warnings 'FATAL' => 'all';
use warnings;
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 'FATAL' => 'all';
use warnings;
use File::Basename;

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings 'FATAL' => 'all';
use warnings;
my $root=$ARGV[0] || "..";

View file

@ -24,7 +24,7 @@
###########################################################################
use strict;
use warnings 'FATAL' => 'all';
use warnings;
sub showline {
my ($l) = @_;

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

@ -30,7 +30,7 @@
#
use strict;
use warnings 'FATAL' => 'all';
use warnings;
use allversions;

View file

@ -28,7 +28,7 @@
package testutil;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);

View file

@ -24,7 +24,7 @@
#***************************************************************************
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
push(@INC, $ENV{'srcdir'}) if(defined $ENV{'srcdir'});

View file

@ -25,7 +25,7 @@
package valgrind;
use strict;
use warnings 'FATAL' => 'all';
use warnings;
BEGIN {
use base qw(Exporter);