[DELTA]
2.26 12/05/2017
- '0' is a valid name for an archive, change 'iter' to check definedness
%Modules = (
'Archive::Tar' => {
- 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.24.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.26.tar.gz',
'FILES' => q[cpan/Archive-Tar],
'BUGS' => 'bug-archive-tar@rt.cpan.org',
'EXCLUDED' => [
$DEBUG = 0;
$WARN = 1;
$FOLLOW_SYMLINK = 0;
-$VERSION = "2.24";
+$VERSION = "2.26";
$CHOWN = 1;
$CHMOD = 1;
$SAME_PERMISSIONS = $> == 0 ? 1 : 0;
sub iter {
my $class = shift;
- my $filename = shift or return;
+ my $filename = shift;
+ return unless defined $filename;
my $compressed = shift || 0;
my $opts = shift || {};
BEGIN {
require Exporter;
- $VERSION = '2.24';
+ $VERSION = '2.26';
@ISA = qw[Exporter];
require Time::Local if $^O eq "MacOS";
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 ###