diff options
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'; + } |