In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/ff7894f5de15c54bf9db4d72df358a9df7f78f2e?hp=643222e17ceb2f2908c0162e118e6e245579d4eb>
- Log -----------------------------------------------------------------
commit ff7894f5de15c54bf9db4d72df358a9df7f78f2e
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date: Wed Aug 18 11:20:06 2010 +0100
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.
-----------------------------------------------------------------------
Summary of changes:
Porting/Maintainers.pl | 2 +-
cpan/Archive-Tar/lib/Archive/Tar.pm | 2 +-
cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 +-
cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 +-
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 9b839d9..14b266e 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 2e21bbb..83834c4 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 3353d1b..b688024 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 1e90e9a..6dce9b6 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 q...@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 7b212f6..b740594 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};
--
Perl5 Master Repository
