Version 0.54 changes

diff --git a/perl/ChangeLog b/perl/ChangeLog
index 23fab60..f6c1a83 100644 (file)
--- a/perl/ChangeLog
+++ b/perl/ChangeLog
@@ -1,3 +1,9 @@
+Version 0.54 --        8 October 2000   <skimo@kotnet.org> Sven Verdoolaege
+       
+       o library fixes  ("Rob Saccoccio" <robs@ipass.net>)
+       o compilation issues with newer gcc
+       o completely untested OPEN and READLINE methods
+
 Version 0.53 --        10 July 2000   <skimo@kotnet.org> Sven Verdoolaege
        
        o sfio version compiles again

diff --git a/perl/FCGI.pm b/perl/FCGI.pm
index b9e48db..25e6410 100644 (file)
--- a/perl/FCGI.pm
+++ b/perl/FCGI.pm
@@ -1,4 +1,4 @@
-# $Id: FCGI.pm,v 1.10 2000/07/10 09:56:49 skimo Exp $
+# $Id: FCGI.pm,v 1.11 2000/10/08 19:48:23 skimo Exp $
 
 package FCGI;
 
@@ -13,7 +13,7 @@ require DynaLoader;
        
 );
 
-$VERSION = '0.53';
+$VERSION = '0.54';
 
 bootstrap FCGI;
 
@@ -88,6 +88,32 @@ sub PRINTF {
   shift->PRINT(sprintf(shift, @_));
 }
 
+sub READLINE {
+    my $stream = shift;
+    my ($s, $c);
+    my $rs = $/ eq '' ? "\n\n" : $/;
+    my $l = substr $rs, -1;
+    my $len = length $rs;
+
+    $c = $stream->GETC();
+    if ($/ eq '') {
+       while ($c eq "\n") { 
+           $c = $stream->GETC();
+       }
+    }
+    while (defined $c) {
+       $s .= $c;
+       last if $c eq $l and substr($s, -$len) eq $rs;
+       $c = $stream->GETC();
+    }
+    $s;
+}
+
+sub OPEN {
+    $_[0]->CLOSE;
+    @_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
+}
+
 1;
 
 =pod