diff options
| author | Randy W. Sims <ml-perl@thepierianspring.org> | 2006-03-20 01:37:31 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-03-22 20:33:56 +0000 |
| commit | 376cc5ea9119d14a5a36f394fef8e7874a59a876 (patch) | |
| tree | d6a5d9d2ec2ac7d2d36eb8e05f0f8d94645a8211 /lib | |
| parent | bdf30dd65934b3741b68564e8d7bd2730f15bae4 (diff) | |
| download | perl-376cc5ea9119d14a5a36f394fef8e7874a59a876.tar.gz | |
Uninitialized value in Archive::Tar
From: "Randy W. Sims" <ml-perl@thepierianspring.org>
Message-ID: <441E93FB.3050906@thepierianspring.org>
p4raw-id: //depot/perl@27571
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Archive/Tar.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Archive/Tar.pm b/lib/Archive/Tar.pm index 2b4a512c00..322bea3623 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. |