From a58ed8c8474137020ff90c7b67efa623db8cffb3 Mon Sep 17 00:00:00 2001
From: Brian Somers <brian@FreeBSD.org>
Date: Fri, 19 Apr 2002 17:59:04 +0000
Subject: [PATCH] Qualify calls to &read, &close and &die to silence perl -w

---
 www/p5-CGI-modules/files/patch-Base.pm     | 20 ++++++++++++++++++++
 www/p5-CGI-modules/files/patch-BasePlus.pm | 11 +++++++++++
 www/p5-CGI-modules/files/patch-Carp.pm     | 11 +++++++++++
 3 files changed, 42 insertions(+)
 create mode 100644 www/p5-CGI-modules/files/patch-Base.pm
 create mode 100644 www/p5-CGI-modules/files/patch-BasePlus.pm
 create mode 100644 www/p5-CGI-modules/files/patch-Carp.pm

diff --git a/www/p5-CGI-modules/files/patch-Base.pm b/www/p5-CGI-modules/files/patch-Base.pm
new file mode 100644
index 000000000000..d12cfbaebb88
--- /dev/null
+++ b/www/p5-CGI-modules/files/patch-Base.pm
@@ -0,0 +1,20 @@
+--- CGI/Base.pm.orig	Sat Apr  5 03:27:34 1997
++++ CGI/Base.pm	Fri Apr 19 18:46:05 2002
+@@ -831,7 +831,7 @@
+ 
+     my $bytes = $self->pass_back($svr_fh);
+ 
+-    close($svr_fh);
++    CORE::close($svr_fh);
+     if ($Debug) {
+ 	$self->log("Pass-thru complete. Bytes: $sent thru, $bytes back.");
+ 	$self->log("Warning: possibly truncated by SIGPIPE") if $SigPipe;
+@@ -1040,7 +1040,7 @@
+ 	$fh = ++$_newfh_seq;
+ 	$fh = "CGI::Base::_$fh";
+     }
+-    close($fh) if defined fileno($fh);	# may be being reused
++    CORE::close($fh) if defined fileno($fh);	# may be being reused
+     $fh = $$fh if ref $fh;		# reusing previous ref
+     bless \*{$fh}, 'FileHandle';
+ }
diff --git a/www/p5-CGI-modules/files/patch-BasePlus.pm b/www/p5-CGI-modules/files/patch-BasePlus.pm
new file mode 100644
index 000000000000..f0f088be7ef6
--- /dev/null
+++ b/www/p5-CGI-modules/files/patch-BasePlus.pm
@@ -0,0 +1,11 @@
+--- CGI/BasePlus.pm.orig	Sat Apr  5 04:16:35 1997
++++ CGI/BasePlus.pm	Fri Apr 19 18:47:59 2002
+@@ -178,7 +178,7 @@
+     $bytesToRead = $self->{LENGTH} if $self->{LENGTH} < $bytesToRead;
+ 
+     # Try to read some data.  We may hang here if the browser is screwed up.  
+-    my $bytesRead = read($self->{IN},$self->{BUFFER},$bytesToRead,$bufferLength);
++    my $bytesRead = CORE::read($self->{IN},$self->{BUFFER},$bytesToRead,$bufferLength);
+ 
+     # An apparent bug in the Netscape Commerce server causes the read()
+     # to return zero bytes repeatedly without blocking if the
diff --git a/www/p5-CGI-modules/files/patch-Carp.pm b/www/p5-CGI-modules/files/patch-Carp.pm
new file mode 100644
index 000000000000..eac7665f1907
--- /dev/null
+++ b/www/p5-CGI-modules/files/patch-Carp.pm
@@ -0,0 +1,11 @@
+--- CGI/Carp.pm.orig	Sat Apr  5 03:12:02 1997
++++ CGI/Carp.pm	Fri Apr 19 18:54:00 2002
+@@ -218,7 +218,7 @@
+ 	my($handle) = $in=~/[':]/ ? $in : "$package\:\:$in"; 
+ 	$no = fileno($handle);
+     }
+-    die "Invalid filehandle $in\n" unless $no;
++    CORE::die "Invalid filehandle $in\n" unless $no;
+     
+     open(SAVEERR, ">&STDERR");
+     open(STDERR, ">&$no") or