This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Uninitialized value in Archive::Tar
authorRandy W. Sims <ml-perl@thepierianspring.org>
Mon, 20 Mar 2006 06:37:31 +0000 (01:37 -0500)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 22 Mar 2006 20:33:56 +0000 (20:33 +0000)
From: "Randy W. Sims" <ml-perl@thepierianspring.org>
Message-ID: <441E93FB.3050906@thepierianspring.org>

p4raw-id: //depot/perl@27571

lib/Archive/Tar.pm

index 2b4a512..322bea3 100644 (file)
@@ -14,7 +14,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD
 $DEBUG              = 0;
 $WARN               = 1;
 $FOLLOW_SYMLINK     = 0;
-$VERSION            = "1.29_01";
+$VERSION            = "1.29_02";
 $CHOWN              = 1;
 $CHMOD              = 1;
 $DO_NOT_USE_PREFIX  = 0;
@@ -328,7 +328,7 @@ sub _read_tar {
             }
 
             ### throw away trailing garbage ###
-            substr ($$data, $entry->size) = "";
+            substr ($$data, $entry->size) = "" if defined $$data;
 
             ### part II of the @LongLink munging -- need to do /after/
             ### the checksum check.