diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2017-06-14 20:22:27 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2017-06-14 20:22:27 +0100 |
| commit | 7346c75ec710cdf1d2dd363f96aadd3522963f90 (patch) | |
| tree | 0df67af350a7202057d13834bc6cb1f9fd6b727d /cpan/Archive-Tar | |
| parent | b50535da2f4aaf97d13e96cda0069755fb6bbf76 (diff) | |
| download | perl-7346c75ec710cdf1d2dd363f96aadd3522963f90.tar.gz | |
Update Archive-Tar to CPAN version 2.26
[DELTA]
2.26 12/05/2017
- '0' is a valid name for an archive, change 'iter' to check definedness
Diffstat (limited to 'cpan/Archive-Tar')
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar.pm | 5 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 2 | ||||
| -rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 |
3 files changed, 5 insertions, 4 deletions
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index d63e586317..b585f7cfe2 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.24"; +$VERSION = "2.26"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; @@ -1756,7 +1756,8 @@ Example usage: sub iter { my $class = shift; - my $filename = shift or return; + my $filename = shift; + return unless defined $filename; my $compressed = shift || 0; my $opts = shift || {}; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index 6488d653f9..aca1807a79 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.24'; + $VERSION = '2.26'; @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 dc4c4c77a0..deb11d2f78 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.24'; +$VERSION = '2.26'; ### set value to 1 to oct() it during the unpack ### |