--- trunk/lib/Frey/Server.pm 2008/11/28 13:16:47 581 +++ trunk/lib/Frey/Server.pm 2008/11/28 15:07:32 589 @@ -160,10 +160,10 @@ warn "## html ",length($html)," bytes"; $req->print( $html ); } else { - $req->print( qq|
no output from $f
\r\n\r\n| ); + confess "no output from $f"; } } else { - warn "# can't call request on nothing!"; + confess "# can't call request on nothing!"; } }; @@ -186,6 +186,7 @@ } if ( $req->conn ) { + $req->print( "\r\n" ); # flush $req->conn->close; warn "## close connection: $@"; }