Corrected FILENO implementation to return undef if stream is closed otherwise -1.

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

diff --git a/perl/FCGI.xs b/perl/FCGI.xs
index cb89d24..c12e608 100644 (file)
--- a/perl/FCGI.xs
+++ b/perl/FCGI.xs
@@ -478,6 +478,15 @@ EOF(stream, called=0)
   OUTPUT:
     RETVAL
 
+void
+FILENO(stream)
+    FCGI::Stream stream;
+  CODE:
+    if (FCGX_HasSeenEOF(stream) != 0)
+        XSRETURN_UNDEF;
+    else
+        XSRETURN_IV(-1);
+
 bool
 CLOSE(stream)
     FCGI::Stream stream;