diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm | 10 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm | 6 |
2 files changed, 9 insertions, 7 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 398c4799a5..825f2b1656 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/Constant.pm @@ -1,9 +1,14 @@ package Archive::Tar::Constant; +use strict; +use warnings; + +use vars qw[$VERSION @ISA @EXPORT]; + BEGIN { require Exporter; - $VERSION = '2.36'; + $VERSION = '2.38'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; @@ -11,9 +16,6 @@ BEGIN { @EXPORT = Archive::Tar::Constant->_list_consts( __PACKAGE__ ); -use strict; -use warnings; - use constant FILE => 0; use constant HARDLINK => 1; use constant SYMLINK => 2; 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 0887a923bd..be380a5eb1 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Archive/Tar/File.pm @@ -7,13 +7,11 @@ use File::Spec::Unix (); use File::Spec (); use File::Basename (); -### avoid circular use, so only require; -require Archive::Tar; use Archive::Tar::Constant; use vars qw[@ISA $VERSION]; #@ISA = qw[Archive::Tar]; -$VERSION = '2.36'; +$VERSION = '2.38'; ### set value to 1 to oct() it during the unpack ### @@ -469,6 +467,8 @@ sub extract { local $Carp::CarpLevel += 1; + ### avoid circular use, so only require; + require Archive::Tar; return Archive::Tar->_extract_file( $self, @_ ); } |