diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm index b7e71abcd3..f7b89f490a 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Glob.pm @@ -1,16 +1,14 @@ package File::Glob; use strict; -our($VERSION, @ISA, @EXPORT_OK, @EXPORT_FAIL, %EXPORT_TAGS, $DEFAULT_FLAGS); +our($DEFAULT_FLAGS); require XSLoader; -@ISA = qw(Exporter); - # NOTE: The glob() export is only here for compatibility with 5.6.0. # csh_glob() should not be used directly, unless you know what you're doing. -%EXPORT_TAGS = ( +our %EXPORT_TAGS = ( 'glob' => [ qw( GLOB_ABEND GLOB_ALPHASORT @@ -33,9 +31,9 @@ require XSLoader; ); $EXPORT_TAGS{bsd_glob} = [@{$EXPORT_TAGS{glob}}]; -@EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob'); +our @EXPORT_OK = (@{$EXPORT_TAGS{'glob'}}, 'csh_glob'); -$VERSION = '1.33'; +our $VERSION = '1.40'; sub import { require Exporter; @@ -66,7 +64,7 @@ sub import { XSLoader::load(); $DEFAULT_FLAGS = GLOB_CSH(); -if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) { +if ($^O =~ /^(?:MSWin32|VMS|os2|riscos)$/) { $DEFAULT_FLAGS |= GLOB_NOCASE(); } |