From: Randy W. Sims <ml-perl@thepierianspring.org>
Date: Mon, 20 Mar 2006 06:37:31 +0000 (-0500)
Subject: Uninitialized value in Archive::Tar
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=376cc5ea9119d14a5a36f394fef8e7874a59a876;p=p5sagit%2Fp5-mst-13.2.git

Uninitialized value in Archive::Tar
From: "Randy W. Sims" <ml-perl@thepierianspring.org>
Message-ID: <441E93FB.3050906@thepierianspring.org>

p4raw-id: //depot/perl@27571
---

diff --git a/lib/Archive/Tar.pm b/lib/Archive/Tar.pm
index 2b4a512..322bea3 100644
--- a/lib/Archive/Tar.pm
+++ b/lib/Archive/Tar.pm
@@ -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.