This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to CGI.pm-3.22.
authorSteve Peters <steve@fisharerojo.org>
Thu, 24 Aug 2006 01:27:08 +0000 (01:27 +0000)
committerSteve Peters <steve@fisharerojo.org>
Thu, 24 Aug 2006 01:27:08 +0000 (01:27 +0000)
p4raw-id: //depot/perl@28752

lib/CGI.pm
lib/CGI/Changes

index 8a64d0e..ffb8ce9 100644 (file)
@@ -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];
 }
index 4b934ee..3d5b712 100644 (file)
@@ -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.