diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Fatal.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Fatal.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Fatal.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Fatal.pm index 744ca7228b..debfc2d1af 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Fatal.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Fatal.pm @@ -55,7 +55,7 @@ use constant ERROR_58_HINTS => q{Non-subroutine %s hints for %s are not supporte use constant MIN_IPC_SYS_SIMPLE_VER => 0.12; -our $VERSION = '2.34'; # VERSION: Generated by DZP::OurPkg::Version +our $VERSION = '2.36'; # VERSION: Generated by DZP::OurPkg::Version our $Debug ||= 0; @@ -170,6 +170,8 @@ my %TAGS = ( ':2.32' => [qw(:default)], ':2.33' => [qw(:default)], ':2.34' => [qw(:default)], + ':2.35' => [qw(:default)], + ':2.36' => [qw(:default)], ); @@ -1088,6 +1090,7 @@ sub _one_invocation { my $code = qq[ no warnings qw(unopened uninitialized numeric); no if \$\] >= 5.017011, warnings => "experimental::smartmatch"; + no if \$warnings::Offsets{"deprecated::smartmatch"}, warnings => "deprecated"; if (wantarray) { my \@results = $call(@argv); |