This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Archive-Tar to CPAN version 2.20
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 15 Dec 2016 14:31:00 +0000 (14:31 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 15 Dec 2016 14:31:00 +0000 (14:31 +0000)
  [DELTA]

2.20  15/12/2016 (AGRUNDMA)
- Check for gzip/bzip2 before round tripping gz/bz2 files in tests

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
cpan/Archive-Tar/t/09_roundtrip.t

index a759592..de7942c 100755 (executable)
@@ -120,7 +120,7 @@ use File::Glob qw(:case);
 %Modules = (
 
     'Archive::Tar' => {
-        'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.18.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.20.tar.gz',
         'FILES'        => q[cpan/Archive-Tar],
         'BUGS'         => 'bug-archive-tar@rt.cpan.org',
         'EXCLUDED'     => [
index cb7c351..349dcf1 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                = "2.18";
+$VERSION                = "2.20";
 $CHOWN                  = 1;
 $CHMOD                  = 1;
 $SAME_PERMISSIONS       = $> == 0 ? 1 : 0;
index 07eb33d..c1356ad 100644 (file)
@@ -3,7 +3,7 @@ package Archive::Tar::Constant;
 BEGIN {
     require Exporter;
 
-    $VERSION    = '2.18';
+    $VERSION    = '2.20';
     @ISA        = qw[Exporter];
 
     require Time::Local if $^O eq "MacOS";
index 3cd5a52..3e4cdbc 100644 (file)
@@ -13,7 +13,7 @@ use Archive::Tar::Constant;
 
 use vars qw[@ISA $VERSION];
 #@ISA        = qw[Archive::Tar];
-$VERSION    = '2.18';
+$VERSION    = '2.20';
 
 ### set value to 1 to oct() it during the unpack ###
 
index 5863448..8fb72a8 100644 (file)
@@ -123,11 +123,13 @@ for my $archive_name (@file_only_archives) {
 
 sub can_tar_gzip {
   my ($tar_help) = @_;
+  return 0 unless can_run('gzip');
   $tar_help =~ /-z, --gzip|-z,.+gzip/;
 }
 
 sub can_tar_bzip2 {
   my ($tar_help) = @_;
+  return 0 unless can_run('bzip2');
   $tar_help =~ /-j, --bzip2|-j,+bzip2/;
 }