summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2020-04-11 03:09:12 +0000
committerNorbert Preining <norbert@preining.info>2020-04-11 03:09:12 +0000
commitc2697fc286a1e2c94fd9968b76be6f4a6d2114cd (patch)
tree1dc2cfb07cb032740483dd8be7c74aff66b70352 /systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm
parent25111608e6aa05042b0c6f83009262e1973d7a45 (diff)
CTAN sync 202004110309
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm20
1 files changed, 6 insertions, 14 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm
index 07df4941a1..368a755f50 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm
@@ -13,7 +13,7 @@ require XSLoader;
%EXPORT_TAGS = (
'glob' => [ qw(
GLOB_ABEND
- GLOB_ALPHASORT
+ GLOB_ALPHASORT
GLOB_ALTDIRFUNC
GLOB_BRACE
GLOB_CSH
@@ -29,15 +29,13 @@ require XSLoader;
GLOB_QUOTE
GLOB_TILDE
bsd_glob
- glob
) ],
);
$EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}];
-pop @{$EXPORT_TAGS{bsd_glob}}; # no "glob"
@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob');
-$VERSION = '1.31';
+$VERSION = '1.32';
sub import {
require Exporter;
@@ -72,17 +70,11 @@ if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
$DEFAULT_FLAGS |= GLOB_NOCASE();
}
-# File::Glob::glob() is deprecated because its prototype is different from
-# CORE::glob() (use bsd_glob() instead)
+# File::Glob::glob() removed in perl-5.30 because its prototype is different
+# from CORE::glob() (use bsd_glob() instead)
sub glob {
- use 5.024;
- use warnings ();
- warnings::warnif (deprecated =>
- "File::Glob::glob() will disappear in perl 5.30. " .
- "Use File::Glob::bsd_glob() instead.") unless state $warned ++;
-
- splice @_, 1; # no flags
- goto &bsd_glob;
+ die "File::Glob::glob() was removed in perl 5.30. " .
+ "Use File::Glob::bsd_glob() instead. $!";
}
1;