From: Randy W. Sims 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" 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.