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/Archive/Tar/Constant.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm index 825f2b1656..6f293a2f49 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm @@ -8,7 +8,7 @@ use vars qw[$VERSION @ISA @EXPORT]; BEGIN { require Exporter; - $VERSION = '2.38'; + $VERSION = '2.40'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; @@ -88,7 +88,10 @@ use constant XZ => do { !$ENV{'PERL5_AT_NO_XZ'} and }; use constant GZIP_MAGIC_NUM => qr/^(?:\037\213|\037\235)/; -use constant BZIP_MAGIC_NUM => qr/^BZh\d/; + + # ASCII: B Z h 0 9 +use constant BZIP_MAGIC_NUM => qr/^\x42\x5A\x68[\x30-\x39]/; + use constant XZ_MAGIC_NUM => qr/^\xFD\x37\x7A\x58\x5A\x00/; use constant CAN_CHOWN => sub { ($> == 0 and $^O ne "MacOS" and $^O ne "MSWin32") }; |