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 /cpan/Archive-Tar | |
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
Diffstat (limited to 'cpan/Archive-Tar')
-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 |
4 files changed, 5 insertions, 5 deletions
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 $!; } |