use FCGX_Free

diff --git a/perl/ChangeLog b/perl/ChangeLog
index a066e35..2c2d8e4 100644 (file)
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,5 @@
+       o don't flush unbound request
+
 Version 0.56 --        3 November 2000   <skimo@kotnet.org> Sven Verdoolaege
 
        o add example remote.fpl

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index fc436a8..ec35303 100644 (file)
--- a/perl/FCGI.PL
+++ b/perl/FCGI.PL
@@ -12,7 +12,7 @@ unless ($] >= 5.005) {
 print OUT while <DATA>;
 close OUT;
 __END__
-/* $Id: FCGI.PL,v 1.18 2000/11/01 15:12:26 skimo Exp $ */
+/* $Id: FCGI.PL,v 1.19 2000/11/05 19:11:58 skimo Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -290,7 +290,10 @@ FCGI_Finish(FCGP_Request* request)
        }
     }
 #endif
-    FCGX_Finish_r(request->requestPtr);
+    if (request->bound)
+       FCGX_Finish_r(request->requestPtr);
+    else
+       FCGX_Free(request->requestPtr);
     request->accepted = FALSE;
 }
 

diff --git a/perl/FCGI.pm b/perl/FCGI.pm
index e043b5a..06b76aa 100644 (file)
--- a/perl/FCGI.pm
+++ b/perl/FCGI.pm
@@ -1,4 +1,4 @@
-# $Id: FCGI.pm,v 1.15 2000/11/03 15:42:10 skimo Exp $
+# $Id: FCGI.pm,v 1.16 2000/11/05 19:11:58 skimo Exp $
 
 package FCGI;
 
@@ -13,7 +13,7 @@ require DynaLoader;
        
 );
 
-$VERSION = '0.56';
+$VERSION = '0.57';
 
 bootstrap FCGI;