From 376cc5ea9119d14a5a36f394fef8e7874a59a876 Mon Sep 17 00:00:00 2001 From: "Randy W. Sims" Date: Mon, 20 Mar 2006 01:37:31 -0500 Subject: [PATCH] Uninitialized value in Archive::Tar From: "Randy W. Sims" Message-ID: <441E93FB.3050906@thepierianspring.org> p4raw-id: //depot/perl@27571 --- lib/Archive/Tar.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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. -- 2.7.4