[Catalyst] problem on $c->res->body(*STDOUT);

[Fayland Lam]

sub test_body : Local {
   my ($self, $c) = @_;

   $c->res->body(*STDOUT);
   print "a\n";
   print "b\n";
}
I get:

a
b
HTTP/1.0 200 OK
Cache-Control: no-cache, must-revalidate, max-age=0
Connection: keep-alive
Date: Fri, 14 Mar 2008 02:58:50 GMT
Pragma: no-cache
Content-Length: 31
Set-Cookie: zorpia_session=6ef8f841a6f678e09621936e10c52f33eb442f57; path=/
Status: 200
X-Catalyst: 5.7012

*Catalyst::Engine::HTTP::Remote

how to get the correct stuff. I tried to call $c->finalize_headers(); 
before ->body, no help.

Thanks.

--
Fayland Lam // http://www.fayland.org/ 
Foorum based on Catalyst // http://www.foorumbbs.com/ 


_______________________________________________
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/