20 lines
657 B
Perl
20 lines
657 B
Perl
--- 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';
|
|
}
|