summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm7
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm2
2 files changed, 6 insertions, 3 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") };
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm
index be380a5eb1..c361f046d7 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm
@@ -11,7 +11,7 @@ use Archive::Tar::Constant;
use vars qw[@ISA $VERSION];
#@ISA = qw[Archive::Tar];
-$VERSION = '2.38';
+$VERSION = '2.40';
### set value to 1 to oct() it during the unpack ###