kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Qualify calls to &read, &close and &die to silence perl -w

Browse source
This commit is contained in:
Brian Somers 2002-04-19 17:59:04 +00:00
parent 4b4f4ae757
commit a58ed8c847
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=57889
3 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
www/p5-CGI-modules/files/patch-Base.pm Normal file
View file

@ -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';
}

11
www/p5-CGI-modules/files/patch-BasePlus.pm Normal file
View file

@ -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

11
www/p5-CGI-modules/files/patch-Carp.pm Normal file
View file

@ -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