On Tue, Nov 19, 2013 at 6:34 PM, John Napiorkowski <jjn1...@yahoo.com>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 mose...@hank.org
_______________________________________________ List: Catalyst@lists.scsys.co.uk Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/ Dev site: http://dev.catalyst.perl.org/