diff options
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar.pm | 2 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 | ||||
| -rw-r--r-- | cpan/Archive-Tar/t/04_resolved_issues.t | 8 |
4 files changed, 9 insertions, 5 deletions
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'); } |