Change 27571 by [EMAIL PROTECTED] on 2006/03/22 20:33:56
Subject: Uninitialized value in Archive::Tar
From: "Randy W. Sims" <[EMAIL PROTECTED]>
Date: Mon, 20 Mar 2006 06:37:31 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/Archive/Tar.pm#9 edit
Differences ...
==== //depot/perl/lib/Archive/Tar.pm#9 (text) ====
Index: perl/lib/Archive/Tar.pm
--- perl/lib/Archive/Tar.pm#8~27416~ 2006-03-08 04:15:04.000000000 -0800
+++ perl/lib/Archive/Tar.pm 2006-03-22 12:33:56.000000000 -0800
@@ -14,7 +14,7 @@
$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 @@
}
### 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.
End of Patch.
