remove "implicit discarding of input stream" warning. RFC 3875 is pretty clear that...

diff --git a/perl/FCGI.XL b/perl/FCGI.XL
index 4b07c72..1867ca3 100644 (file)
--- a/perl/FCGI.XL
+++ b/perl/FCGI.XL
@@ -195,12 +195,8 @@ FCGI_Finish(FCGP_Request* request) {
 
     if (was_bound = request->bound)
         FCGI_UndoBinding(request);
-    if (was_bound) {
-        FCGX_Stream *stream = request->requestPtr->in;
-        if (stream && FCGX_GetChar(stream) != EOF)
-            warn("implicit discarding of input stream");
+    if (was_bound)
         FCGX_Finish_r(request->requestPtr);
-    }
     else
         FCGX_Free(request->requestPtr, 1);
     request->accepted = FALSE;