$OpenBSD: patch-perl_FCGI_PL,v 1.3 2019/01/30 14:55:06 cwen Exp $
Index: perl/FCGI.PL
--- perl/FCGI.PL.orig
+++ perl/FCGI.PL
@@ -1,6 +1,8 @@
 use Config;
 use ExtUtils::MakeMaker;
 
+BEGIN { push @INC, '.'; }
+
 do 'FCGI.cfg' or die "no FCGI.cfg";
 
 open OUT, ">FCGI.pm";
@@ -291,7 +293,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 +312,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 +395,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;
 
