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