0.53 release (fixes sfio)

diff --git a/perl/ChangeLog b/perl/ChangeLog
index ad21d30..23fab60 100644 (file)
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,9 @@
+Version 0.53 --        10 July 2000   <skimo@kotnet.org> Sven Verdoolaege
+       
+       o sfio version compiles again
+
+Version 0.52 -- 12 April 2000  <skimo@kotnet.org> Sven Verdoolaege
+
 Version 0.51 -- 12 April 2000  <skimo@kotnet.org> Sven Verdoolaege
 
 Version 0.50 -- 10 April 2000  <skimo@kotnet.org> Sven Verdoolaege

diff --git a/perl/FCGI.PL b/perl/FCGI.PL
index 1cea371..b148dcb 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.14 2000/04/21 18:10:53 skimo Exp $ */
+/* $Id: FCGI.PL,v 1.15 2000/07/10 09:56:49 skimo Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -150,9 +150,9 @@ FCGI_Bind(FCGP_Request* request)
     dTHX;
 
 #ifdef USE_SFIO
-    sfdisc(IoIFP(request->io[0]), sfdcnewfcgi(fcgx_req->in));
-    sfdisc(IoOFP(request->io[1]), sfdcnewfcgi(fcgx_req->out));
-    sfdisc(IoOFP(request->io[2]), sfdcnewfcgi(fcgx_req->err));
+    sfdisc(IoIFP(request->io[0]), sfdcnewfcgi(request->requestPtr->in));
+    sfdisc(IoOFP(request->io[1]), sfdcnewfcgi(request->requestPtr->out));
+    sfdisc(IoOFP(request->io[2]), sfdcnewfcgi(request->requestPtr->err));
 #else
     sv_magic((SV *)request->gv[1], request->svout, 'q', Nullch, 0);
     sv_magic((SV *)request->gv[2], request->sverr, 'q', Nullch, 0);
@@ -210,6 +210,9 @@ FCGI_Accept(FCGP_Request* request)
         return(EOF);
     } 
     if(!req_isCGI) {
+#ifdef USE_SFIO
+       int i;
+#endif
        FCGX_Request *fcgx_req = request->requestPtr;
         int acceptResult;
 
@@ -259,6 +262,9 @@ FCGI_Accept(FCGP_Request* request)
 static void 
 FCGI_Finish(FCGP_Request* request)
 {
+#ifdef USE_SFIO
+    int i;
+#endif
     dTHX;
 
     if(!request->accepted) {

diff --git a/perl/FCGI.pm b/perl/FCGI.pm
index 2f82087..b9e48db 100644 (file)
--- a/perl/FCGI.pm
+++ b/perl/FCGI.pm
@@ -1,4 +1,4 @@
-# $Id: FCGI.pm,v 1.9 2000/04/21 18:10:53 skimo Exp $
+# $Id: FCGI.pm,v 1.10 2000/07/10 09:56:49 skimo Exp $
 
 package FCGI;
 
@@ -13,7 +13,7 @@ require DynaLoader;
        
 );
 
-$VERSION = '0.52';
+$VERSION = '0.53';
 
 bootstrap FCGI;
 

diff --git a/perl/README b/perl/README
index b4b885a..ea21c1d 100644 (file)
--- a/perl/README
+++ b/perl/README
@@ -1,4 +1,4 @@
-$Id: README,v 1.4 2000/04/21 18:10:53 skimo Exp $
+$Id: README,v 1.5 2000/07/10 09:56:49 skimo Exp $
 
     Copyright (c) 1996 Open Market, Inc.
     See the file "LICENSE.TERMS" for information on usage and redistribution
@@ -12,7 +12,6 @@ that comes with Open Market's FastCGI Developer's Kit, but does
 not require you to recompile perl.
 
 It even no longer requires perl to be compiled with sfio.
-The sfio version has had more testing though.
 To compile with sfio you'll need at least perl 5.003_02 and you'll have
 to have configured it with eg './Configure -Duseperlio -Dusesfio'.
 (See the INSTALL file that comes with the perl distribution.)