blob: d12cfbaebb889a5e63628d9a776778c124acc5ec (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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';
}
|
