diff options
author | Denis Barbier <barbier> | 2003-09-26 00:51:48 +0000 |
---|---|---|
committer | Denis Barbier <barbier> | 2003-09-26 00:51:48 +0000 |
commit | 7bdb69f2139a077537d3a104d66485faa7aa81a5 (patch) | |
tree | 3fce68eb5ef31d4240aae6e05a1f01685de17f1e /Perl | |
parent | 260f0f658aeb02fdc38966a6791c9ec0bc38da0a (diff) |
Accept tarballs which do not have a trailing 0-block
CVS version numbers
Perl/Local/Inside/Tar.pm: 1.4 -> 1.5
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/Local/Inside/Tar.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Perl/Local/Inside/Tar.pm b/Perl/Local/Inside/Tar.pm index d4c3f2780b8..e054f99fbf8 100644 --- a/Perl/Local/Inside/Tar.pm +++ b/Perl/Local/Inside/Tar.pm @@ -329,6 +329,10 @@ sub _read_header { my $cont = shift; # 1 when reading long filenames, 0 otherwise # Read header + if (eof($self->{handle})) { + $self->_debug("EOF detected"); + return; + } my $head = $self->_io_read(512, 1) || Carp::croak "End of file found when reading \`$self->{name}'"; if ($head eq "\0" x 512) { |