diff options
author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-06-15 16:00:59 +0100 |
---|---|---|
committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2014-06-15 16:00:59 +0100 |
commit | a40258e536ad87406ce3ed2ca507168f490a7b21 (patch) | |
tree | f84fe0b758f2cf6c234fedfab845bf17ff5a1f8d | |
parent | d8430cc22ae8e074a843ae62675beb2f2057f355 (diff) | |
download | perl-a40258e536ad87406ce3ed2ca507168f490a7b21.tar.gz |
Update Archive-Tar to CPAN version 2.00
[DELTA]
2.00 15/06/2014 (TINITA)
- Fix ptargrep for problems on MSWin32
-rwxr-xr-x | Porting/Maintainers.pl | 4 | ||||
-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/08_ptargrep.t | 4 |
5 files changed, 7 insertions, 7 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index f3a2789e9c..cd040938bf 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -48,7 +48,7 @@ use File::Glob qw(:case); # of the module is, but this is no longer stated explicitly. It is now # understood to be either the Perl 5 Porters if UPSTREAM is 'blead', or else # the CPAN author whose PAUSE user ID forms the first part of the DISTRIBUTION -# value, e.g. 'BINGOS' in the case of 'BINGOS/Archive-Tar-1.98.tar.gz'. +# value, e.g. 'BINGOS' in the case of 'BINGOS/Archive-Tar-2.00.tar.gz'. # (PAUSE's View Permissions page may be consulted to find other authors who # have owner or co-maint permissions for the module in question.) @@ -119,7 +119,7 @@ use File::Glob qw(:case); %Modules = ( 'Archive::Tar' => { - 'DISTRIBUTION' => 'BINGOS/Archive-Tar-1.98.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.00.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 e6bd10e323..5cbea645d4 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.98"; +$VERSION = "2.00"; $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 77040a582f..ac0c5c6b37 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.98'; + $VERSION = '2.00'; @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 c335798c6b..e2047536e6 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.98'; +$VERSION = '2.00'; ### set value to 1 to oct() it during the unpack ### diff --git a/cpan/Archive-Tar/t/08_ptargrep.t b/cpan/Archive-Tar/t/08_ptargrep.t index b684f7d66b..62131aeb24 100644 --- a/cpan/Archive-Tar/t/08_ptargrep.t +++ b/cpan/Archive-Tar/t/08_ptargrep.t @@ -11,7 +11,7 @@ my $tartest = File::Spec->catfile("t", "tartest"); my $foo = File::Spec->catfile("t", "tartest", "foo"); my $tarfile = File::Spec->catfile("t", "tartest.tar"); my $ptargrep = File::Spec->catfile($Bin, "..", "bin", "ptargrep"); -my $cmd = "$^X $ptargrep --list-only 'file foo' $tarfile"; +my $cmd = qq/$^X $ptargrep --list-only "file foo" $tarfile/; # create directory/files mkdir $tartest; @@ -30,7 +30,7 @@ cmp_ok($out, '=~', qr{^t.*tartest.*foo$}m, "ptargrep shows matched file"); # cleanup END { - unlink $tarfile; + unlink $tarfile or die $!; unlink $foo or die $!; rmdir $tartest or die $!; } |