bump version to 0.82 and prepare for release

[catagits/fcgi2.git] / perl / FCGI.pm

diff --git a/perl/FCGI.pm b/perl/FCGI.pm
index 32c64cb..674a1b0 100644 (file)
--- a/perl/FCGI.pm
+++ b/perl/FCGI.pm
@@ -2,7 +2,7 @@ package FCGI;
 use strict;
 
 BEGIN {
-    our $VERSION = '0.73';
+    our $VERSION = '0.82';
 
     require XSLoader;
     XSLoader::load(__PACKAGE__, $VERSION);
@@ -49,22 +49,24 @@ sub READLINE {
 }
 
 sub OPEN {
-    $_[0]->CLOSE;
-    if (@_ == 2) {
-        return open($_[0], $_[1]);
-    } else {
-        my $rc;
-        eval("$rc = open($_[0], $_[1], $_[2])");
-        die $@ if $@;
-        return $rc;
-    }
+    require Carp;
+    Carp::croak(q/Operation 'OPEN' not supported on FCGI::Stream handle/);
 }
 
-# Some things (e.g. IPC::Run) use fileno to determine if a filehandle is open,
-# so we return a defined, but meaningless value. (-1 being the error return
-# value from the syscall in c, meaning it can never be a valid fd no)
-# Probably a better alternative would be to return the fcgi stream fd.
-sub FILENO { -1 }
+sub SEEK {
+    require Carp;
+    Carp::croak(q/Operation 'SEEK' not supported on FCGI::Stream handle/);
+}
+
+sub TELL {
+    require Carp;
+    Carp::croak(q/Operation 'TELL' not supported on FCGI::Stream handle/);
+}
+
+sub TIEHANDLE {
+    require Carp;
+    Carp::croak(q/Operation 'TIEHANDLE' not supported on FCGI::Stream handle/);
+}
 
 1;
 
@@ -125,7 +127,7 @@ server know which port (and possibly server) your program
 is listening on.
 See remote.pl for an example.
 
-=item flags (default: 0)
+=item flags (default: FCGI::FAIL_ACCEPT_ON_INTR)
 
 Possible values:
 
@@ -251,6 +253,13 @@ exception by using the C<bytes> pragma.
 
 Sven Verdoolaege <skimo@kotnet.org>
 
+=head1 COPYRIGHT AND LICENCE
+
+This software is copyrighted (c) 1996 by by Open Market, Inc.
+
+See the LICENSE file in this distribution for information on usage and
+redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+
 =cut
 
 __END__