This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Archive-Tar to CPAN version 2.38
authorTodd Rinaldo <toddr@cpan.org>
Sat, 12 Sep 2020 03:55:15 +0000 (22:55 -0500)
committerℕicolas ℝ <nicolas@atoomic.org>
Sat, 12 Sep 2020 13:27:17 +0000 (07:27 -0600)
[DELTA]

2.38  25/06/2020 (ATOOMIC)
- Avoid indirect calls
- Add use warnings to bin/ptar*

Porting/Maintainers.pl
cpan/Archive-Tar/bin/ptar
cpan/Archive-Tar/bin/ptardiff
cpan/Archive-Tar/lib/Archive/Tar.pm
cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
cpan/Archive-Tar/lib/Archive/Tar/File.pm
cpan/Archive-Tar/t/01_use.t
cpan/Archive-Tar/t/02_methods.t
cpan/Archive-Tar/t/99_pod.t

index a7a36fb..2322851 100755 (executable)
@@ -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'     => [
index 67d4130..8c3fec1 100644 (file)
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 use strict;
+use warnings;
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 use File::Find;
index 4668fa6..1ae5492 100644 (file)
@@ -2,6 +2,7 @@
 
 BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
+use warnings;
 use Archive::Tar;
 use Getopt::Std;
 
index af6786e..9131161 100644 (file)
@@ -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);
index 398c479..825f2b1 100644 (file)
@@ -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;
index 0887a92..be380a5 100644 (file)
@@ -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, @_ );
 }
 
index 0641086..99c534d 100644 (file)
@@ -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' );
index 4006d4e..bff2f61 100644 (file)
@@ -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
     }
index 39c8a20..342eb85 100644 (file)
@@ -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 );