diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-08-18 11:20:06 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2010-08-18 11:20:06 +0100 |
| commit | ff7894f5de15c54bf9db4d72df358a9df7f78f2e (patch) | |
| tree | 64ebcd6162fb84f0c9306642f04fda62ad028d13 | |
| parent | 643222e17ceb2f2908c0162e118e6e245579d4eb (diff) | |
| download | perl-ff7894f5de15c54bf9db4d72df358a9df7f78f2e.tar.gz | |
Update Archive-Tar to CPAN version 1.68
[DELTA]
* important changes in version 1.68 17/08/2010
- Apply a patch from Colin Newell that checks whether long files can be created or
not in 02_methods.t. Hopefully resolves RT #57312 and RT #56163
Most importantly it should resolve test failures when building on encrypted
filesystems.
| -rw-r--r-- | Porting/Maintainers.pl | 2 | ||||
| -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/02_methods.t | 14 |
5 files changed, 18 insertions, 4 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 9b839d9d5b..14b266e2aa 100644 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -197,7 +197,7 @@ use File::Glob qw(:case); 'Archive::Tar' => { 'MAINTAINER' => 'kane', - 'DISTRIBUTION' => 'BINGOS/Archive-Tar-1.66.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Archive-Tar-1.68.tar.gz', 'FILES' => q[cpan/Archive-Tar], 'EXCLUDED' => [ qw(Makefile.PL) ], 'UPSTREAM' => 'cpan', diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index 2e21bbbf7c..83834c4bb6 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 = "1.66"; +$VERSION = "1.68"; $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 3353d1bf84..b688024c93 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 = '1.66'; + $VERSION = '1.68'; @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 1e90e9a9ba..6dce9b66c9 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 = '1.66'; +$VERSION = '1.68'; ### set value to 1 to oct() it during the unpack ### my $tmpl = [ diff --git a/cpan/Archive-Tar/t/02_methods.t b/cpan/Archive-Tar/t/02_methods.t index 7b212f63a6..b740594203 100644 --- a/cpan/Archive-Tar/t/02_methods.t +++ b/cpan/Archive-Tar/t/02_methods.t @@ -63,6 +63,20 @@ my $LONG_FILE = qq[directory/really-really-really-really-really-really-really-re my $TOO_LONG = ($^O eq 'MSWin32' or $^O eq 'cygwin' or $^O eq 'VMS') && length( cwd(). $LONG_FILE ) > 247; +if(!$TOO_LONG) { + my $alt = File::Spec->catfile( cwd(), $LONG_FILE); + eval 'mkpath([$alt]);'; + if($@) + { + $TOO_LONG = 1; + } + else + { + $@ = ''; + my $base = File::Spec->catfile( cwd(), 'directory'); + rmtree $base; + } +} ### warn if we are going to skip long file names if ($TOO_LONG) { diag("No long filename support - long filename extraction disabled") if ! $ENV{PERL_CORE}; |