summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
index 31a34eb3f0..2ad0a769c0 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/IO/Uncompress/Base.pm
@@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS);
@ISA = qw(IO::File Exporter);
-$VERSION = '2.102';
+$VERSION = '2.204';
use constant G_EOF => 0 ;
use constant G_ERR => -1 ;
-use IO::Compress::Base::Common 2.101 ;
+use IO::Compress::Base::Common 2.204 ;
use IO::File ;
use Symbol;
@@ -1006,6 +1006,11 @@ sub nextStream
{
my $self = shift ;
+ # An uncompressed file cannot have a next stream, so
+ # return immediately.
+ return 0
+ if *$self->{Plain} ;
+
my $status = $self->gotoNextStream();
$status == 1
or return $status ;
@@ -1562,7 +1567,7 @@ See the Changes file.
=head1 COPYRIGHT AND LICENSE
-Copyright (c) 2005-2021 Paul Marquess. All rights reserved.
+Copyright (c) 2005-2023 Paul Marquess. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.