Make all Perl warnings fatal, catch-up

Apply c538592959 to new Perl files that had missed the note.
This commit is contained in:
Peter Eisentraut 2024-05-15 09:44:05 +02:00
parent 54b69f1bd7
commit cc70e170c0
11 changed files with 11 additions and 11 deletions

View File

@ -1,7 +1,7 @@
# Copyright (c) 2021-2024, PostgreSQL Global Development Group # Copyright (c) 2021-2024, PostgreSQL Global Development Group
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Test::More; use Test::More;

View File

@ -1,7 +1,7 @@
# Copyright (c) 2021-2024, PostgreSQL Global Development Group # Copyright (c) 2021-2024, PostgreSQL Global Development Group
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use File::Compare; use File::Compare;
use PostgreSQL::Test::Cluster; use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;

View File

@ -9,7 +9,7 @@
# Copyright (c) 2000-2024, PostgreSQL Global Development Group # Copyright (c) 2000-2024, PostgreSQL Global Development Group
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use Getopt::Long; use Getopt::Long;
use FindBin; use FindBin;

View File

@ -5,7 +5,7 @@
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Test::More; use Test::More;

View File

@ -5,7 +5,7 @@
# for a variety of small inputs. # for a variety of small inputs.
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Test::More; use Test::More;

View File

@ -5,7 +5,7 @@
# output with the expected output. # output with the expected output.
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Test::More; use Test::More;

View File

@ -7,7 +7,7 @@
# of iterations instead of just one. # of iterations instead of just one.
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Test::More; use Test::More;

View File

@ -2,7 +2,7 @@
# Copyright (c) 2024, PostgreSQL Global Development Group # Copyright (c) 2024, PostgreSQL Global Development Group
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use locale; use locale;
use PostgreSQL::Test::Cluster; use PostgreSQL::Test::Cluster;

View File

@ -2,7 +2,7 @@
# Copyright (c) 2024, PostgreSQL Global Development Group # Copyright (c) 2024, PostgreSQL Global Development Group
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Cluster; use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Test::More; use Test::More;

View File

@ -2,7 +2,7 @@
# Copyright (c) 2024, PostgreSQL Global Development Group # Copyright (c) 2024, PostgreSQL Global Development Group
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use PostgreSQL::Test::Cluster; use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils; use PostgreSQL::Test::Utils;
use Time::HiRes qw(usleep); use Time::HiRes qw(usleep);

View File

@ -5,7 +5,7 @@
# to create backups. # to create backups.
use strict; use strict;
use warnings; use warnings FATAL => 'all';
use File::Copy qw(copy); use File::Copy qw(copy);
use File::Path qw(rmtree); use File::Path qw(rmtree);