Changeset 17712 for lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseWriter.pm

Timestamp:

08/16/08 19:46:28 (5 years ago)

Author:

tokuhirom

Message:

no HTTP::Request::AsCGI;

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseWriter.pm (modified) (1 diff)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseWriter.pm

@@ -34 +34 @@
     }
 
-    local *STDOUT = $req->_connection->{output_handle};
+    local *STDOUT = $req->_connection->{output_handle} if $req->_connection->{output_handle};
     $self->_prepare_write;
     $self->_write($self->_response_line($res) . $CRLF) if $self->should_write_response_line;