diff options
| author | brian <brian@FreeBSD.org> | 2002-04-19 17:59:04 +0000 |
|---|---|---|
| committer | brian <brian@FreeBSD.org> | 2002-04-19 17:59:04 +0000 |
| commit | 39242a2cf44808b8035e04040bfd15961bfb666f (patch) | |
| tree | b7f4d4506b1fd059631470f9e5a7ba6e3c0d7f4a /www/p5-CGI-modules/files | |
| parent | 7163cc9aab6cd90d3df32c4e02e5e3e0cb900f19 (diff) | |
| download | FreeBSD-ports-39242a2cf44808b8035e04040bfd15961bfb666f.zip FreeBSD-ports-39242a2cf44808b8035e04040bfd15961bfb666f.tar.gz | |
Qualify calls to &read, &close and &die to silence perl -w
Diffstat (limited to 'www/p5-CGI-modules/files')
| -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 0000000..d12cfba --- /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 0000000..f0f088b --- /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 0000000..eac7665 --- /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 |
