diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-12-18 22:36:50 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-12-18 22:36:50 +0000 |
| commit | c3e6accbfa366773737da407c6d6f1574c1a057a (patch) | |
| tree | 71ebe7a68c0c72081436c56ea347e936b929c8b7 /cpan/Archive-Tar | |
| parent | 102f161f2b4be83919c19013e7de6234fd3ad9e5 (diff) | |
| download | perl-c3e6accbfa366773737da407c6d6f1574c1a057a.tar.gz | |
Update Archive-Tar to CPAN version 1.74
[DELTA]
* important changes in version 1.74 18/12/2010
- Skip extracting pax extended headers, reported as
RT #64038
Diffstat (limited to 'cpan/Archive-Tar')
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar.pm | 6 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index 08020e260f..9df5ce0ef2 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar.pm @@ -31,7 +31,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD $DEBUG = 0; $WARN = 1; $FOLLOW_SYMLINK = 0; -$VERSION = "1.72"; +$VERSION = "1.74"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; @@ -406,7 +406,7 @@ sub _read_tar { ### skip this entry if it's a pax header. This is a special file added ### by, among others, git-generated tarballs. It holds comments and is ### not meant for extracting. See #38932: pax_global_header extracted - } elsif ( $entry->name eq PAX_HEADER ) { + } elsif ( $entry->name eq PAX_HEADER or $entry->type =~ /^(x|g)$/ ) { $skip = 2; } elsif ($filter_cb && ! $filter_cb->($entry)) { $skip = 3; @@ -493,7 +493,7 @@ sub _read_tar { ### skip this entry if it's a pax header. This is a special file added ### by, among others, git-generated tarballs. It holds comments and is ### not meant for extracting. See #38932: pax_global_header extracted - } elsif ( $entry->name eq PAX_HEADER ) { + } elsif ( $entry->name eq PAX_HEADER or $entry->type =~ /^(x|g)$/ ) { next LOOP; } elsif ($filter_cb && ! $filter_cb->($entry)) { next LOOP; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index 7ef86fe195..41e60ba777 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm @@ -3,7 +3,7 @@ package Archive::Tar::Constant; BEGIN { require Exporter; - $VERSION = '1.72'; + $VERSION = '1.74'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/cpan/Archive-Tar/lib/Archive/Tar/File.pm index c45f91b24c..ae8ca9354f 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm @@ -13,7 +13,7 @@ use Archive::Tar::Constant; use vars qw[@ISA $VERSION]; #@ISA = qw[Archive::Tar]; -$VERSION = '1.72'; +$VERSION = '1.74'; ### set value to 1 to oct() it during the unpack ### my $tmpl = [ |