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

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

diff --git a/perl/FCGI.XL b/perl/FCGI.XL
index 65a2767..a7d0213 100644 (file)
--- a/perl/FCGI.XL
+++ b/perl/FCGI.XL
@@ -539,13 +539,9 @@ PRINT(stream, ...)
 
        PREINIT:
        int     n;
-    int retval;
-    int bytes_written;
 
        CODE:
-    retval = 0;
-    bytes_written = 0;
-    for (n = 1; n < items && bytes_written >= 0; ++n) {
+    for (n = 1; n < items; ++n) {
             STRLEN len;
             register char *tmps; 
 #ifdef DO_UTF8
@@ -553,14 +549,11 @@ PRINT(stream, ...)
                 croak("Wide character in FCGI::Stream::PRINT");
 #endif
             tmps = (char *)SvPV(ST(n),len);
-               bytes_written = FCGX_PutStr(tmps, len, stream);
-            if (bytes_written > 0) {
-                retval += bytes_written;
-            }
+               FCGX_PutStr(tmps, len, stream);
     }
        if (SvTRUEx(perl_get_sv("|", FALSE))) 
            FCGX_FFlush(stream);
-    RETVAL = retval;
+    RETVAL = 1;
 
     OUTPUT:
     RETVAL