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/files/patch-BasePlus.pm | |
| parent | Make startscript apache.sh PREFIX aware at install time, (diff) | |
Qualify calls to &read, &close and &die to silence perl -w
Diffstat (limited to '')
| -rw-r--r-- | www/p5-CGI-modules/files/patch-BasePlus.pm | 11 |
1 files changed, 11 insertions, 0 deletions
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 |