Fixes annoying warning emitted from the perl interpreter.
Maintainer did not respond.
Regards
Markus
Index: Makefile
===================================================================
RCS file: /cvs/ports/www/fcgi/Makefile,v
retrieving revision 1.15
diff -u -p -u -r1.15 Makefile
--- Makefile 22 Nov 2010 08:36:48 -0000 1.15
+++ Makefile 9 Mar 2011 13:32:53 -0000
@@ -3,7 +3,7 @@
COMMENT= FastCGI Development Kit
DISTNAME= fcgi-2.4.0
-REVISION= 5
+REVISION= 6
CATEGORIES= www
SHARED_LIBS += fcgi 0.0 # .0.0
SHARED_LIBS += fcgi++ 1.0 # .1.0
Index: patches/patch-perl_FCGI_PL
===================================================================
RCS file: /cvs/ports/www/fcgi/patches/patch-perl_FCGI_PL,v
retrieving revision 1.1
diff -u -p -u -r1.1 patch-perl_FCGI_PL
--- patches/patch-perl_FCGI_PL 1 Jun 2008 20:39:26 -0000 1.1
+++ patches/patch-perl_FCGI_PL 9 Mar 2011 13:32:53 -0000
@@ -1,6 +1,24 @@
$OpenBSD: patch-perl_FCGI_PL,v 1.1 2008/06/01 20:39:26 simon Exp $
---- perl/FCGI.PL.orig Fri May 23 07:12:42 2008
-+++ perl/FCGI.PL Fri May 23 07:13:06 2008
+--- 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.
