开源软件构建与测试

_service:tar_scm:perl-Archive-Tar.spec Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/CHANGES -> _service:tar_scm:Archive-Tar-3.02.tar.gz/CHANGES Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/MANIFEST -> _service:tar_scm:Archive-Tar-3.02.tar.gz/MANIFEST Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/META.json -> _service:tar_scm:Archive-Tar-3.02.tar.gz/META.json Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/META.yml -> _service:tar_scm:Archive-Tar-3.02.tar.gz/META.yml Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/lib/Archive/Tar.pm -> _service:tar_scm:Archive-Tar-3.02.tar.gz/lib/Archive/Tar.pm Changed

@@ -1,8 +1,8 @@
 ### the gnu tar specification:
-### http://www.gnu.org/software/tar/manual/tar.html
+### https://www.gnu.org/software/tar/manual/tar.html
 ###
 ### and the pax format spec, which tar derives from:
-### http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html
+### https://www.opengroup.org/onlinepubs/007904975/utilities/pax.html
 
 package Archive::Tar;
 require 5.005_03;
@@ -24,6 +24,7 @@
 use vars qw$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD
             $DO_NOT_USE_PREFIX $HAS_PERLIO $HAS_IO_STRING $SAME_PERMISSIONS
             $INSECURE_EXTRACT_MODE $ZERO_PAD_NUMBERS @ISA @EXPORT $RESOLVE_SYMLINK
+            $EXTRACT_BLOCK_SIZE
          ;
 
 @ISA                    = qwExporter;
@@ -31,7 +32,7 @@
 $DEBUG                  = 0;
 $WARN                   = 1;
 $FOLLOW_SYMLINK         = 0;
-$VERSION                = "2.40";
+$VERSION                = "3.02";
 $CHOWN                  = 1;
 $CHMOD                  = 1;
 $SAME_PERMISSIONS       = $> == 0 ? 1 : 0;
@@ -39,6 +40,7 @@
 $INSECURE_EXTRACT_MODE  = 0;
 $ZERO_PAD_NUMBERS       = 0;
 $RESOLVE_SYMLINK        = $ENV{'PERL5_AT_RESOLVE_SYMLINK'} || 'speed';
+$EXTRACT_BLOCK_SIZE     = 1024 * 1024 * 1024;
 
 BEGIN {
     use Config;
@@ -423,7 +425,7 @@
         }
 
         ### ignore labels:
-        ### http://www.gnu.org/software/tar/manual/html_chapter/Media.html#SEC159
+        ### https://www.gnu.org/software/tar/manual/html_chapter/Media.html#SEC159
         next if $entry->is_label;
 
         if( length $entry->type and ($entry->is_file || $entry->is_longlink) ) {
@@ -894,10 +896,18 @@
 
         if( $entry->size ) {
             binmode $fh;
-            syswrite $fh, $entry->data or (
-                $self->_error( qqCould not write data to '$full' ),
-                return
-            );
+            my $offset = 0;
+            my $content = $entry->get_content_by_ref();
+            while ($offset < $entry->size) {
+                my $written
+                    = syswrite $fh, $$content, $EXTRACT_BLOCK_SIZE, $offset;
+                if (defined $written) {
+                    $offset += $written;
+                } else {
+                    $self->_error( qqCould not write data to '$full': $! );
+                    return;
+                }
+            }
         }
 
         close $fh or (
@@ -2143,25 +2153,39 @@
 
 =head2 Tuning the way RESOLVE_SYMLINK will works
 
-	You can tune the behaviour by setting the $Archive::Tar::RESOLVE_SYMLINK variable,
-	or $ENV{PERL5_AT_RESOLVE_SYMLINK} before loading the module Archive::Tar.
+You can tune the behaviour by setting the $Archive::Tar::RESOLVE_SYMLINK variable,
+or $ENV{PERL5_AT_RESOLVE_SYMLINK} before loading the module Archive::Tar.
+
+Values can be one of the following:
+
+=over 4
+
+=item none
 
-  Values can be one of the following:
+Disable this mechanism and failed as it was in previous version (<1.88)
 
-		none
-           Disable this mechanism and failed as it was in previous version (<1.88)
+=item speed (default)
 
-		speed (default)
-           If you prefer speed
-           this will read again the whole archive using read() so all entries
-           will be available
+If you prefer speed
+this will read again the whole archive using read() so all entries
+will be available
 
-    memory
-           If you prefer memory
+=item memory
 
-	Limitation
+If you prefer memory
 
-		It won't work for terminal, pipe or sockets or every non seekable source.
+=back
+
+Limitation: It won't work for terminal, pipe or sockets or every non seekable
+source.
+
+=head2 $Archive::Tar::EXTRACT_BLOCK_SIZE
+
+This variable holds an integer with the block size that should be used when
+writing files during extraction. It defaults to 1 GiB. Please note that this
+cannot be arbitrarily large since some operating systems limit the number of
+bytes that can be written in one call to C<write(2)>, so if this is too large,
+extraction may fail with an error.
 
 =cut
 
@@ -2396,22 +2420,11 @@
 
 =item The GNU tar specification
 
-C<http://www.gnu.org/software/tar/manual/tar.html>
+L<https://www.gnu.org/software/tar/manual/tar.html>
 
 =item The PAX format specification
 
-The specification which tar derives from; C< http://www.opengroup.org/onlinepubs/007904975/utilities/pax.html>
-
-=item A comparison of GNU and POSIX tar standards; C<http://www.delorie.com/gnu/docs/tar/tar_114.html>
-
-=item GNU tar intends to switch to POSIX compatibility
-
-GNU Tar authors have expressed their intention to become completely
-POSIX-compatible; C<http://www.gnu.org/software/tar/manual/html_node/Formats.html>
-
-=item A Comparison between various tar implementations
-
-Lists known issues and incompatibilities; C<http://gd.tuwien.ac.at/utils/archivers/star/README.otherbugs>
+The specification which tar derives from; L<https://pubs.opengroup.org/onlinepubs/007904975/utilities/pax.html>
 
 =back

_service:tar_scm:Archive-Tar-2.40.tar.gz/lib/Archive/Tar/Constant.pm -> _service:tar_scm:Archive-Tar-3.02.tar.gz/lib/Archive/Tar/Constant.pm Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/lib/Archive/Tar/File.pm -> _service:tar_scm:Archive-Tar-3.02.tar.gz/lib/Archive/Tar/File.pm Changed

@@ -11,7 +11,7 @@
 
 use vars qw@ISA $VERSION;
 #@ISA        = qwArchive::Tar;
-$VERSION    = '2.40';
+$VERSION    = '3.02';
 
 ### set value to 1 to oct() it during the unpack ###
 
@@ -71,7 +71,7 @@
 
 =head1 DESCRIPTION
 
-Archive::Tar::Files provides a neat little object layer for in-memory
+Archive::Tar::File provides a neat little object layer for in-memory
 extracted files. It's mostly used internally in Archive::Tar to tidy
 up the code, but there's no reason users shouldn't use this API as
 well.
@@ -486,7 +486,9 @@
     return $self->name unless defined $self->prefix and length $self->prefix;
 
     ### or otherwise, catfile'd
-    return File::Spec::Unix->catfile( $self->prefix, $self->name );
+    my $path = File::Spec::Unix->catfile( $self->prefix, $self->name );
+    $path .= "/" if $self->name =~ m{/$};   # Re-add trailing slash if necessary, as catfile() strips them off.
+    return $path;
 }
 
 
@@ -601,7 +603,7 @@
 	return 1;
 }
 
-=head2 $bool = $file->chmod $mode)
+=head2 $bool = $file->chmod( $mode )
 
 Change mode of $file to $mode. The mode can be a string or a number
 which is interpreted as octal whether or not a leading 0 is given.

_service:tar_scm:Archive-Tar-2.40.tar.gz/t/02_methods.t -> _service:tar_scm:Archive-Tar-3.02.tar.gz/t/02_methods.t Changed

@@ -570,6 +570,34 @@
 }
 
 
+### extract tests with different $EXTRACT_BLOCK_SIZE values ###
+SKIP: {                             ### pesky warnings
+    skip $ebcdic_skip_msg, 431 if ord "A" != 65;
+
+    skip('no IO::String', 431) if   !$Archive::Tar::HAS_PERLIO &&
+                                    !$Archive::Tar::HAS_PERLIO &&
+                                    !$Archive::Tar::HAS_IO_STRING &&
+                                    !$Archive::Tar::HAS_IO_STRING;
+
+    my $tar = $Class->new;
+    ok( $tar->read( $TAR_FILE ),    "Read in '$TAR_FILE'" );
+
+    for my $aref (  $tar,    \@EXPECT_NORMAL,
+                    $TARBIN, \@EXPECTBIN,
+                    $TARX,   \@EXPECTX
+    ) {
+        my($obj, $struct) = @$aref;
+
+        for my $block_size ((1, BLOCK, 1024 * 1024, 2**31 - 4096, 2**31 - 1)) {
+            local $Archive::Tar::EXTRACT_BLOCK_SIZE = $block_size;
+
+            ok( $obj->extract,  "   Extracted with 'extract'" );
+            check_tar_extract( $obj, $struct );
+        }
+    }
+}
+
+
 ### clear tests ###
 SKIP: {                             ### pesky warnings
     skip $ebcdic_skip_msg, 3 if ord "A" != 65;

_service:tar_scm:Archive-Tar-2.40.tar.gz/t/04_resolved_issues.t -> _service:tar_scm:Archive-Tar-3.02.tar.gz/t/04_resolved_issues.t Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/t/09_roundtrip.t -> _service:tar_scm:Archive-Tar-3.02.tar.gz/t/09_roundtrip.t Changed

_service:tar_scm:Archive-Tar-2.40.tar.gz/t/90_symlink.t -> _service:tar_scm:Archive-Tar-3.02.tar.gz/t/90_symlink.t Changed

@@ -6,9 +6,13 @@
 use File::Spec;
 use File::Path;
 use Test::More;
+use Config;
 
-### developer tests mostly, so enable them with an extra argument
-plan skip_all => "Skipping tests on this platform" unless @ARGV;
+### developer tests mostly
+plan skip_all => "Skipping tests on this platform"
+  if ($^O !~ /(linux|bsd|darwin|solaris|hpux|aix|
+              sunos|dynixptx|haiku|irix|next|dec_osf|svr4|sco_sv|unicos|
+              cygwin)/x and !$Config{d_symlink});
 plan 'no_plan';
 
 my $Class   = 'Archive::Tar';
@@ -20,7 +24,7 @@
     ,
     File::Spec->catfile( $Dir, "linktest_missing_dir.tar" ) => 
          0, qr/SECURE EXTRACT MODE/ ,
-         0, qr/File exists/ ,
+         0, qr/Could not create directory/ ,
     ,
 );
 
@@ -42,7 +46,7 @@
             ok( 1,                  "   Extracting with insecure mode: $mode" );
 
             my $warning;
-            local $SIG{__WARN__} = sub { $warning .= "@_"; warn @_; };
+            local $SIG{__WARN__} = sub { $warning .= "@_" };
 
             my $rv = eval { $tar->extract } || 0;
             ok( !$@,                "       No fatal error" );

_service:tar_scm:Archive-Tar-3.02.tar.gz/t/src/long/prefix-directory-concat.tar Added

Changes of Revision 8