Implemented support for EOF operation on FCGI::Stream handle

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

diff --git a/perl/FCGI.xs b/perl/FCGI.xs
index 9662ba7..cb89d24 100644 (file)
--- a/perl/FCGI.xs
+++ b/perl/FCGI.xs
@@ -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;