diff options
author | Todd Rinaldo <toddr@cpan.org> | 2020-09-11 22:55:15 -0500 |
---|---|---|
committer | ℕicolas ℝ <nicolas@atoomic.org> | 2020-09-12 07:27:17 -0600 |
commit | 401624ce9e08d13d7bb66fa7c6a1c0ac2c9122dd (patch) | |
tree | e5443fbd46a481a8c75067e4d16bcbb52ee6026c | |
parent | 0d96e6a3cf0051ce79a5fafd43f6c63d88b080a3 (diff) | |
download | perl-401624ce9e08d13d7bb66fa7c6a1c0ac2c9122dd.tar.gz |
Update Archive-Tar to CPAN version 2.38
[DELTA]
2.38 25/06/2020 (ATOOMIC)
- Avoid indirect calls
- Add use warnings to bin/ptar*
-rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
-rw-r--r-- | cpan/Archive-Tar/bin/ptar | 1 | ||||
-rw-r--r-- | cpan/Archive-Tar/bin/ptardiff | 1 | ||||
-rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar.pm | 10 | ||||
-rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 10 | ||||
-rw-r--r-- | cpan/Archive-Tar/lib/Archive/Tar/File.pm | 6 | ||||
-rw-r--r-- | cpan/Archive-Tar/t/01_use.t | 2 | ||||
-rw-r--r-- | cpan/Archive-Tar/t/02_methods.t | 2 | ||||
-rw-r--r-- | cpan/Archive-Tar/t/99_pod.t | 2 |
9 files changed, 21 insertions, 15 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a7a36fb6c0..2322851cf1 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -123,7 +123,7 @@ use File::Glob qw(:case); %Modules = ( 'Archive::Tar' => { - 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.36.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.38.tar.gz', 'FILES' => q[cpan/Archive-Tar], 'BUGS' => 'bug-archive-tar@rt.cpan.org', 'EXCLUDED' => [ diff --git a/cpan/Archive-Tar/bin/ptar b/cpan/Archive-Tar/bin/ptar index 67d4130171..8c3fec1914 100644 --- a/cpan/Archive-Tar/bin/ptar +++ b/cpan/Archive-Tar/bin/ptar @@ -1,5 +1,6 @@ #!/usr/bin/perl use strict; +use warnings; BEGIN { pop @INC if $INC[-1] eq '.' } use File::Find; diff --git a/cpan/Archive-Tar/bin/ptardiff b/cpan/Archive-Tar/bin/ptardiff index 4668fa6be0..1ae54928f2 100644 --- a/cpan/Archive-Tar/bin/ptardiff +++ b/cpan/Archive-Tar/bin/ptardiff @@ -2,6 +2,7 @@ BEGIN { pop @INC if $INC[-1] eq '.' } use strict; +use warnings; use Archive::Tar; use Getopt::Std; diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm index af6786ee51..91311619d7 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.36"; +$VERSION = "2.38"; $CHOWN = 1; $CHMOD = 1; $SAME_PERMISSIONS = $> == 0 ? 1 : 0; @@ -48,7 +48,7 @@ BEGIN { ### switch between perlio and IO::String $HAS_IO_STRING = eval { require IO::String; - import IO::String; + IO::String->import; 1; } || 0; } @@ -918,7 +918,7 @@ sub _extract_file { } if( $CHOWN && CAN_CHOWN->() and not -l $full ) { - chown $entry->uid, $entry->gid, $full or + CORE::chown( $entry->uid, $entry->gid, $full ) or $self->_error( qq[Could not set uid/gid on '$full'] ); } @@ -929,7 +929,7 @@ sub _extract_file { unless ($SAME_PERMISSIONS) { $mode &= ~(oct(7000) | umask); } - chmod $mode, $full or + CORE::chmod( $mode, $full ) or $self->_error( qq[Could not chown '$full' to ] . $entry->mode ); } @@ -2284,7 +2284,7 @@ write a C<.tar.Z> file use Archive::Tar; use IO::File; - my $fh = new IO::File "| compress -c >$filename"; + my $fh = IO::File->new( "| compress -c >$filename" ); my $tar = Archive::Tar->new(); ... $tar->write($fh); diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm index 398c4799a5..825f2b1656 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm @@ -1,9 +1,14 @@ package Archive::Tar::Constant; +use strict; +use warnings; + +use vars qw[$VERSION @ISA @EXPORT]; + BEGIN { require Exporter; - $VERSION = '2.36'; + $VERSION = '2.38'; @ISA = qw[Exporter]; require Time::Local if $^O eq "MacOS"; @@ -11,9 +16,6 @@ BEGIN { @EXPORT = Archive::Tar::Constant->_list_consts( __PACKAGE__ ); -use strict; -use warnings; - use constant FILE => 0; use constant HARDLINK => 1; use constant SYMLINK => 2; diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm b/cpan/Archive-Tar/lib/Archive/Tar/File.pm index 0887a923bd..be380a5eb1 100644 --- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm +++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm @@ -7,13 +7,11 @@ use File::Spec::Unix (); use File::Spec (); use File::Basename (); -### avoid circular use, so only require; -require Archive::Tar; use Archive::Tar::Constant; use vars qw[@ISA $VERSION]; #@ISA = qw[Archive::Tar]; -$VERSION = '2.36'; +$VERSION = '2.38'; ### set value to 1 to oct() it during the unpack ### @@ -469,6 +467,8 @@ sub extract { local $Carp::CarpLevel += 1; + ### avoid circular use, so only require; + require Archive::Tar; return Archive::Tar->_extract_file( $self, @_ ); } diff --git a/cpan/Archive-Tar/t/01_use.t b/cpan/Archive-Tar/t/01_use.t index 0641086306..99c534d1a8 100644 --- a/cpan/Archive-Tar/t/01_use.t +++ b/cpan/Archive-Tar/t/01_use.t @@ -3,5 +3,5 @@ use strict; use_ok('Archive::Tar') or diag 'Archive::Tar not found -- exit' && die; -my $tar = new Archive::Tar; +my $tar = Archive::Tar->new; isa_ok( $tar, 'Archive::Tar', 'Object created' ); diff --git a/cpan/Archive-Tar/t/02_methods.t b/cpan/Archive-Tar/t/02_methods.t index 4006d4eb31..bff2f615eb 100644 --- a/cpan/Archive-Tar/t/02_methods.t +++ b/cpan/Archive-Tar/t/02_methods.t @@ -805,7 +805,7 @@ sub slurp_compressed_file { ### gzip } else { require IO::Zlib; - $fh = new IO::Zlib; + $fh = IO::Zlib->new(); $fh->open( $file, READ_ONLY->(1) ) or warn( "Error opening '$file' with IO::Zlib" ), return } diff --git a/cpan/Archive-Tar/t/99_pod.t b/cpan/Archive-Tar/t/99_pod.t index 39c8a209aa..342eb85548 100644 --- a/cpan/Archive-Tar/t/99_pod.t +++ b/cpan/Archive-Tar/t/99_pod.t @@ -16,6 +16,8 @@ find( sub { push @files, File::Spec->catfile( File::Spec->splitdir( $File::Find::dir ), $_ ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) )); +plan skip_all => "No tests to run" unless scalar @files; + plan tests => scalar @files; for my $file ( @files ) { pod_file_ok( $file ); |