diff options
Diffstat (limited to 'cpan/IO-Compress/lib/IO/Uncompress/Base.pm')
| -rw-r--r-- | cpan/IO-Compress/lib/IO/Uncompress/Base.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm b/cpan/IO-Compress/lib/IO/Uncompress/Base.pm index 7d0747796a..7be469fa2c 100644 --- a/cpan/IO-Compress/lib/IO/Uncompress/Base.pm +++ b/cpan/IO-Compress/lib/IO/Uncompress/Base.pm @@ -9,12 +9,12 @@ our (@ISA, $VERSION, @EXPORT_OK, %EXPORT_TAGS); @ISA = qw(Exporter IO::File); -$VERSION = '2.037'; +$VERSION = '2.040'; use constant G_EOF => 0 ; use constant G_ERR => -1 ; -use IO::Compress::Base::Common 2.037 ; +use IO::Compress::Base::Common 2.040 ; use IO::File ; use Symbol; @@ -730,7 +730,7 @@ sub _rd2 while (($status = $z->read($x->{buff})) > 0) { if ($fh) { - print $fh ${ $x->{buff} } + syswrite $fh, ${ $x->{buff} } or return $z->saveErrorString(undef, "Error writing to output file: $!", $!); ${ $x->{buff} } = '' ; } |