diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-08-24 01:27:08 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-08-24 01:27:08 +0000 |
| commit | 9f9736a1d14b921862a1b77740b0ec694b25aac9 (patch) | |
| tree | 62733dc77220a744664fd01e2f226ee8fd4f7728 /lib/CGI.pm | |
| parent | d06ab008fe9b3c9a953ae275e453bfcbbf50c1a9 (diff) | |
| download | perl-9f9736a1d14b921862a1b77740b0ec694b25aac9.tar.gz | |
Upgrade to CGI.pm-3.22.
p4raw-id: //depot/perl@28752
Diffstat (limited to 'lib/CGI.pm')
| -rw-r--r-- | lib/CGI.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/CGI.pm b/lib/CGI.pm index 8a64d0e01d..ffb8ce91dc 100644 --- a/lib/CGI.pm +++ b/lib/CGI.pm @@ -19,7 +19,7 @@ use Carp 'croak'; # http://stein.cshl.org/WWW/software/CGI/ $CGI::revision = '$Id: CGI.pm,v 1.208 2006/04/23 14:25:14 lstein Exp $'; -$CGI::VERSION='3.21'; +$CGI::VERSION='3.22'; # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES. # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING. @@ -3419,7 +3419,7 @@ END_OF_FUNC 'upload' =><<'END_OF_FUNC', sub upload { my($self,$param_name) = self_or_default(@_); - my @param = grep(ref && defined(fileno($_)), $self->param($param_name)); + my @param = grep {ref && defined(fileno($_))}, $self->param($param_name)); return unless @param; return wantarray ? @param : $param[0]; } |