Changeset 11766 for lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/FCGI.pm

Timestamp:

05/17/08 19:11:29 (5 years ago)

Author:

yappo

Message:

fcgi broken

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/FCGI.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/FCGI.pm

@@ -49 +49 @@
 has listen => (
     is  => 'ro',
-    isa => 'Int',
+    isa => 'Str',
 );
 
@@ -137 +137 @@
 }
 
+
+use HTTP::Engine::ResponseWriter;
+HTTP::Engine::ResponseWriter->meta->add_method( write => sub {
+    my($self, $buffer) = @_;
+
+    unless ( $self->{_prepared_write} ) {
+        $self->prepare_write;
+        $self->{_prepared_write} = 1;
+    }
+
+    # XXX: We can't use Engine's write() method because syswrite
+    # appears to return bogus values instead of the number of bytes
+    # written: http://www.fastcgi.com/om_archive/mail-archive/0128.html
+
+    # FastCGI does not stream data properly if using 'print $handle',
+    # but a syswrite appears to work properly.
+    *STDOUT->syswrite($buffer);
+});
+
 1;
 __END__