Index: /lang/perl/HTTP-Engine/trunk/t/010_core/response_writer.t
===================================================================
--- /lang/perl/HTTP-Engine/trunk/t/010_core/response_writer.t (revision 17438)
+++ /lang/perl/HTTP-Engine/trunk/t/010_core/response_writer.t (revision 17523)
@@ -1,5 +1,5 @@
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
 use IO::Scalar;
 use_ok "HTTP::Engine::ResponseWriter";
@@ -42,2 +42,23 @@
 
 is $out, $expected;
+
+
+do {
+    my $req = HTTP::Engine::Request->new;
+    $req->protocol('HTTP/1.1');
+    $req->method('GET');
+
+    my $res = HTTP::Engine::Response->new(status => '200', body => 'OK');
+
+    my $rw = HTTP::Engine::ResponseWriter->new(should_write_response_line => 1);
+    HTTP::Engine::ResponseFinalizer->finalize( $req, $res );
+
+    do {
+        local $@;
+        no warnings 'redefine';
+        my $write;
+        local *HTTP::Engine::ResponseWriter::_write = sub { $write++; undef };
+        $rw->finalize($req, $res);
+        ok $write;
+    };
+};
Index: /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseWriter.pm
===================================================================
--- /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseWriter.pm (revision 17444)
+++ /lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/ResponseWriter.pm (revision 17523)
@@ -80,7 +80,8 @@
 
     # Set the output handle to autoflush
-    if (blessed *STDOUT) {
-        *STDOUT->autoflush(1);
-    }
+#    if (blessed *STDOUT) {
+    local $@;
+    eval { *STDOUT->autoflush(1); };
+#    }
 }