On Tue, Nov 19, 2013 at 6:34 PM, John Napiorkowski <[email protected]>wrote:
>
> This looks familiar, but I thought we fixed this... what version of
> Catalyst are you using here?
>
I just updated:
$ perl -MCatalyst -le 'print Catalyst->VERSION'
5.90051
I can debug more in the morning -- anything specific I should look at?
It's pretty easy to reproduce:
package Zip::Controller::Root;
...
use IO::Uncompress::Gunzip;
use IO::Compress::Gzip qw/ gzip $GzipError /;
sub uncompress : Local {
my ( $self, $c ) = @_;
my $uncompressed = "This is some text that can be compressed.\n" x 5;
my $compressed;
gzip( \$uncompressed, \$compressed ) || die $GzipError;
$c->res->body( IO::Uncompress::Gunzip->new( \$compressed ) );
return;
}
$ script/zip_test.pl /uncompress
-s on unopened filehandle GEN2 at
/home/bill/perl5/perlbrew/perls/perl-5.14.2/lib/site_perl/5.14.2/Catalyst.pm
line 1948, <DATA> line 1000.
[warn] Serving filehandle without a content-length
This is some text that can be compressed.
This is some text that can be compressed.
This is some text that can be compressed.
This is some text that can be compressed.
This is some text that can be compressed.
--
Bill Moseley
[email protected]
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
