Synch with CPAN: Archive::Tar v2.30.

From upstream commit message: "Skip white_space test on Windows "Windows will report that 'white_space ' and 'white_space' both exist, which is obviously a 'feature'"
Perl · Jun 19, 2018 · 8055fa9 · 8055fa9
1 parent 443128e
commit 8055fa9
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 6 deletions.
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
@@ -120,7 +120,7 @@ package Maintainers;
 %Modules = (
 
     'Archive::Tar' => {
-        'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.28.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.30.tar.gz',
         'FILES'        => q[cpan/Archive-Tar],
         'BUGS'         => 'bug-archive-tar@rt.cpan.org',
         'EXCLUDED'     => [

diff --git 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                = "2.28";
+$VERSION                = "2.30";
 $CHOWN                  = 1;
 $CHMOD                  = 1;
 $SAME_PERMISSIONS       = $> == 0 ? 1 : 0;

diff --git 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    = '2.28';
+    $VERSION    = '2.30';
     @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
@@ -13,7 +13,7 @@ use Archive::Tar::Constant;
 
 use vars qw[@ISA $VERSION];
 #@ISA        = qw[Archive::Tar];
-$VERSION    = '2.28';
+$VERSION    = '2.30';
 
 ### set value to 1 to oct() it during the unpack ###
 

diff --git a/cpan/Archive-Tar/t/04_resolved_issues.t b/cpan/Archive-Tar/t/04_resolved_issues.t
@@ -265,13 +265,17 @@ use_ok( $FileClass );
 
 ### bug 103279
 ### retain trailing whitespace on filename
-{   ok( 1,                      "Testing bug 103279" );
+{
+  ok( 1,                      "Testing bug 103279" );
 	my $tar = $Class->new;
 	isa_ok( $tar, $Class,       "   Object" );
 	ok( $tar->add_data( 'white_space   ', '' ),
 				    "   Add file <white_space   > containing filename with trailing whitespace");
 	ok( $tar->extract(),        "	Extract filename with trailing whitespace" );
-	ok( ! -e 'white_space',     "	<white_space> should not exist" );
+  SKIP: {
+    skip "Windows tries to be clever", 1 if $^O eq 'MSWin32';
+	  ok( ! -e 'white_space',     "	<white_space> should not exist" );
+  }
 	ok( -e 'white_space   ',    "	<white_space   > should exist" );
 	unlink foreach ('white_space   ', 'white_space');
 }