IO:: PRINT returns a bool, not no of bytes written, pointed out by chansen

[catagits/fcgi2.git] / perl / FCGI.PL

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index 4781e86..a221c74 100644 (file)
--- a/perl/FCGI.PL
+++ b/perl/FCGI.PL
@@ -261,13 +261,10 @@ sub READ {
 
 sub PRINT {
     my ($stream) = shift;
-    my $bytes = 0;
     for (@_) {
-        my $len = length($_);
-        $stream->{src}->write($stream->{type}, $_, $len);
-        $bytes += $len;
+        $stream->{src}->write($stream->{type}, $_, length($_));
     }
-    return $bytes;
+    return 1;
 }
 
 sub CLOSE {