This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Archive-Tar to CPAN version 1.74
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 18 Dec 2010 22:36:50 +0000 (22:36 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 18 Dec 2010 22:36:50 +0000 (22:36 +0000)
  [DELTA]

  * important changes in version 1.74 18/12/2010
  - Skip extracting pax extended headers, reported as
    RT #64038

Porting/Maintainers.pl
cpan/Archive-Tar/lib/Archive/Tar.pm
cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
cpan/Archive-Tar/lib/Archive/Tar/File.pm
pod/perldelta.pod

index e9001d8..5328739 100755 (executable)
@@ -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',
index 08020e2..9df5ce0 100644 (file)
@@ -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;
index 7ef86fe..41e60ba 100644 (file)
@@ -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";
index c45f91b..ae8ca93 100644 (file)
@@ -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 = [
index 630ccc0..6da321f 100644 (file)
@@ -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