diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2014-09-16 09:00:39 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-09-16 09:00:39 +0100 |
commit | c37b2ad0aae83a03295f5f63f3dd880441d238d0 (patch) | |
tree | 7978739eb52d31437ef423c1114a70db2a9016ba /cpan/Archive-Tar | |
parent | 4ed1f7f9ddcf3a92cab8beab7f52048cda246f44 (diff) | |
download | perl-c37b2ad0aae83a03295f5f63f3dd880441d238d0.tar.gz |
Upgrade Archive-Tar from version 2.00 to 2.02
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 | 8 |
4 files changed, 7 insertions, 7 deletions
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index 5cbea645d4..ddb174d4f1 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.00"; +$VERSION = "2.02"; $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 ac0c5c6b37..19a95dcd7b 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.00'; + $VERSION = '2.02'; @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 e2047536e6..d5ee6af135 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.00'; +$VERSION = '2.02'; ### 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 62131aeb24..a5cf591e25 100644 --- a/cpan/Archive-Tar/t/08_ptargrep.t +++ b/cpan/Archive-Tar/t/08_ptargrep.t @@ -7,9 +7,9 @@ use FindBin '$Bin'; use Archive::Tar; # filenames -my $tartest = File::Spec->catfile("t", "tartest"); -my $foo = File::Spec->catfile("t", "tartest", "foo"); -my $tarfile = File::Spec->catfile("t", "tartest.tar"); +my $tartest = File::Spec->catfile("t", "ptargrep"); +my $foo = File::Spec->catfile("t", "ptargrep", "foo"); +my $tarfile = File::Spec->catfile("t", "ptargrep.tar"); my $ptargrep = File::Spec->catfile($Bin, "..", "bin", "ptargrep"); my $cmd = qq/$^X $ptargrep --list-only "file foo" $tarfile/; @@ -26,7 +26,7 @@ $tar->write($tarfile); # see if ptargrep matches my $out = qx{$cmd}; -cmp_ok($out, '=~', qr{^t.*tartest.*foo$}m, "ptargrep shows matched file"); +cmp_ok($out, '=~', qr{^t.*ptargrep.*foo$}m, "ptargrep shows matched file"); # cleanup END { |