do close when not bound;0.58 release

diff --git a/perl/ChangeLog b/perl/ChangeLog
index d2a599d..7fca556 100644 (file)
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,7 @@
+Version 0.58 --        15 November 2000   <skimo@kotnet.org> Sven Verdoolaege
+
+       o fix bug introduced in 0.57
+
 Version 0.57 --        12 November 2000   <skimo@kotnet.org> Sven Verdoolaege
 
        o don't flush unbound request

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index ec35303..ddd32ec 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.19 2000/11/05 19:11:58 skimo Exp $ */
+/* $Id: FCGI.PL,v 1.20 2000/11/14 23:15:20 skimo Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -272,13 +272,14 @@ FCGI_Finish(FCGP_Request* request)
 #ifdef USE_SFIO
     int i;
 #endif
+    int was_bound;
     dTHX;
 
     if(!request->accepted) {
        return;
     }
 
-    if (request->bound) {
+    if (was_bound = request->bound) {
        FCGI_UndoBinding(request);
     }
 #ifdef USE_SFIO
@@ -290,7 +291,7 @@ FCGI_Finish(FCGP_Request* request)
        }
     }
 #endif
-    if (request->bound)
+    if (was_bound)
        FCGX_Finish_r(request->requestPtr);
     else
        FCGX_Free(request->requestPtr);

diff --git a/perl/FCGI.pm b/perl/FCGI.pm
index 5346253..d783590 100644 (file)
--- a/perl/FCGI.pm
+++ b/perl/FCGI.pm
@@ -1,4 +1,4 @@
-# $Id: FCGI.pm,v 1.17 2000/11/12 13:11:13 skimo Exp $
+# $Id: FCGI.pm,v 1.18 2000/11/14 23:15:20 skimo Exp $
 
 package FCGI;
 
@@ -13,7 +13,7 @@ require DynaLoader;
        
 );
 
-$VERSION = '0.57';
+$VERSION = '0.58';
 
 bootstrap FCGI;