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/
