diff options
| author | Brian Somers <brian@FreeBSD.org> | 2002-04-19 17:59:04 +0000 |
|---|---|---|
| committer | Brian Somers <brian@FreeBSD.org> | 2002-04-19 17:59:04 +0000 |
| commit | a58ed8c8474137020ff90c7b67efa623db8cffb3 (patch) | |
| tree | 54eb65a7b56027463a726b7ca96aa01a65faab52 /www/p5-CGI-modules | |
| parent | 4b4f4ae757eaf71068db696a5a165f3bfef7638e (diff) | |
| download | ports-a58ed8c8474137020ff90c7b67efa623db8cffb3.tar.gz ports-a58ed8c8474137020ff90c7b67efa623db8cffb3.zip | |
Notes
Diffstat (limited to 'www/p5-CGI-modules')
| -rw-r--r-- | www/p5-CGI-modules/files/patch-Base.pm | 20 | ||||
| -rw-r--r-- | www/p5-CGI-modules/files/patch-BasePlus.pm | 11 | ||||
| -rw-r--r-- | www/p5-CGI-modules/files/patch-Carp.pm | 11 |
3 files changed, 42 insertions, 0 deletions
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 |