mirror of
https://git.FreeBSD.org/ports.git
synced 2024-12-14 03:10:47 +00:00
12 lines
578 B
Perl
12 lines
578 B
Perl
--- 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
|