summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2018-06-19 08:31:16 -0600
committerJames E Keenan <jkeenan@cpan.org>2018-06-19 08:33:12 -0600
commit8055fa98a7ae167147672c203307e9efb4ad6765 (patch)
tree35abe97c40e8fb5fcd3890b90655ee9d22e98ef2
parent443128e3a6a0454fb593eccd3ec5458b76a95cd7 (diff)
downloadperl-8055fa98a7ae167147672c203307e9efb4ad6765.tar.gz
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'"
-rwxr-xr-xPorting/Maintainers.pl2
-rw-r--r--cpan/Archive-Tar/lib/Archive/Tar.pm2
-rw-r--r--cpan/Archive-Tar/lib/Archive/Tar/Constant.pm2
-rw-r--r--cpan/Archive-Tar/lib/Archive/Tar/File.pm2
-rw-r--r--cpan/Archive-Tar/t/04_resolved_issues.t8
5 files changed, 10 insertions, 6 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index d760ba8dbc..4f039f7ad0 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -120,7 +120,7 @@ use File::Glob qw(:case);
%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
index 5950b3ea20..e08b5e5903 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 = "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
index 201f2674c8..66fad51a07 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 = '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
index d3f3a4dc9c..b6fbecf6c9 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 = '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
index 74332bcef2..4991d9a67b 100644
--- 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');
}