In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c3e6accbfa366773737da407c6d6f1574c1a057a?hp=102f161f2b4be83919c19013e7de6234fd3ad9e5>
- Log ----------------------------------------------------------------- commit c3e6accbfa366773737da407c6d6f1574c1a057a Author: Chris 'BinGOs' Williams <[email protected]> Date: Sat Dec 18 22:36:50 2010 +0000 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 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Archive-Tar/lib/Archive/Tar.pm | 6 +++--- cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 +- cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 +- pod/perldelta.pod | 4 ++++ 5 files changed, 10 insertions(+), 6 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index e9001d8..5328739 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -196,7 +196,7 @@ use File::Glob qw(:case); 'Archive::Tar' => { 'MAINTAINER' => 'kane', - 'DISTRIBUTION' => 'BINGOS/Archive-Tar-1.72.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Archive-Tar-1.74.tar.gz', 'FILES' => q[cpan/Archive-Tar], 'EXCLUDED' => [ qw(Makefile.PL) ], 'UPSTREAM' => 'cpan', diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index 08020e2..9df5ce0 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 7ef86fe..41e60ba 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 c45f91b..ae8ca93 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 q...@isa $VERSION]; #...@isa = qw[Archive::Tar]; -$VERSION = '1.72'; +$VERSION = '1.74'; ### set value to 1 to oct() it during the unpack ### my $tmpl = [ diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 630ccc0..6da321f 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -259,6 +259,10 @@ XXX =item * +C<Archive::Tar> has been upgraded from version 1.72 to 1.74 + +=item * + C<B::Concise> has been upgraded from version 0.81 to 0.82. It no longer produces mangled output with the C<-tree> option -- Perl5 Master Repository
