severity 747363 normal forwarded 747363 https://rt.cpan.org/Public/Bug/Display.html?id=95494 thanks
On Wed, May 07, 2014 at 10:28:55PM +0200, Christoph Biedl wrote: > Package: perl-modules > Version: 5.18.2-2 > Severity: critical > Justification: Breaks unreleated software > IO-Compress 2.060 as bundled with Perl 5.18.2 introduces a regression > over 2.033 (as in Debian wheezy) and older versions like 2.020 in > squeeze: When uncompressing to a filehandle that is connected to an > in-memory string with > > open $fh, '>', \$buf > > the syswrite() in IO::Uncompress::Base::_rd2 (line 759) fails > with $! set to "Bad file descriptor". In previous versions, print > was used instead which did not have this problem. Thanks for the report. I've forwarded this upstream as https://rt.cpan.org/Public/Bug/Display.html?id=95494 Programs using IO-Compress are not unrelated software, so the 'critical' severity is unwarranted. I'm lowering the severity. > ------------------------------------------------------------------- > #!/usr/bin/perl > use IO::Uncompress::Gunzip qw(gunzip $GunzipError); > my $buf_out = ''; > open my $fh_out, '>', \$buf_out or die $!; > gunzip ( > '/usr/share/doc/perl-modules/changelog.Debian.gz', > $fh_out > ) or die "Failed: $GunzipError, $!"; > print $buf_out; > ------------------------------------------------------------------- Note that you can uncompress to a scalar reference, which accomplishes the same thing: ------------------------------------------------------------------- #!/usr/bin/perl use IO::Uncompress::Gunzip qw(gunzip $GunzipError); my $buf_out = ''; gunzip ( '/usr/share/doc/perl-modules/changelog.Debian.gz', \$buf_out ) or die "Failed: $GunzipError, $!"; print $buf_out; ------------------------------------------------------------------- -- Niko Tyni nt...@debian.org -- To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
