diff options
| -rw-r--r-- | lib/CGI.pm | 4 | ||||
| -rw-r--r-- | lib/CGI/Changes | 3 |
2 files changed, 5 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]; } diff --git a/lib/CGI/Changes b/lib/CGI/Changes index 4b934ee23e..3d5b7124a2 100644 --- a/lib/CGI/Changes +++ b/lib/CGI/Changes @@ -1,3 +1,6 @@ + Version 3.22 + 1. Typo in upload() function broke uploads. Now fixed (CPAN bug 21126). + Version 3.21 1. Don't try to read data at all when POST > $POST_MAX. 2. Fixed bug that caused $cgi->param('name',undef,'value') to unset param('name') entirely. |