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-Base.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-Base.pm | 20 |
1 files changed, 20 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'; + } |