ood-ports-lbsd-fork1/www/fcgi/patches/patch-perl_FCGI_PL

$OpenBSD: patch-perl_FCGI_PL,v 1.2 2011/03/28 23:04:42 simon Exp $
--- perl/FCGI.PL.orig	Sun Dec 15 21:02:48 2002
+++ perl/FCGI.PL	Wed Mar  9 13:41:41 2011
@@ -291,7 +291,7 @@ sub Request(;***$*$) {
 
 sub accept() {
     warn "accept called as a method; you probably wanted to call Accept" if @_;
-    if (defined %FCGI::ENV) {
+    if (%FCGI::ENV) {
 	%ENV = %FCGI::ENV;
     } else {
 	%FCGI::ENV = %ENV;
@@ -310,7 +310,7 @@ sub accept() {
 
 sub finish() {
     warn "finish called as a method; you probably wanted to call Finish" if @_;
-    %ENV = %FCGI::ENV if (defined %FCGI::ENV);
+    %ENV = %FCGI::ENV if (%FCGI::ENV);
 
     # not SFIO
     if (tied (*STDIN)) {
@@ -393,7 +393,7 @@ sub OPEN {
 # Apparently some use fileno to determine if a filehandle is open,
 # so we might want to return a defined, but meaningless value.
 # An alternative would be to return the fcgi stream fd.
-# sub FILENO { -2 }
+sub FILENO { -2 }
 
 1;