Implemented support for EOF operation on FCGI::Stream handle
chansen [Thu, 8 Mar 2012 12:06:21 +0000 (13:06 +0100)]
perl/FCGI.xs

index 9662ba7..cb89d24 100644 (file)
@@ -469,6 +469,15 @@ GETC(stream)
     else
         ST(0) = &PL_sv_undef;
 
+SV *
+EOF(stream, called=0)
+    FCGI::Stream stream;
+    IV called;
+  CODE:
+    RETVAL = boolSV(FCGX_HasSeenEOF(stream));
+  OUTPUT:
+    RETVAL
+
 bool
 CLOSE(stream)
     FCGI::Stream stream;