Permalink
Browse files

Typo in upload() function broke uploads. Now fixed (CPAN bug 21126).

  • Loading branch information...
1 parent 00fb5b9 commit 0fee195dee1eb4498086b7648dcd29f7aeb05432 lstein committed Aug 23, 2006
Showing with 6 additions and 3 deletions.
  1. +3 −3 CGI.pm
  2. +3 −0 Changes
View
6 CGI.pm
@@ -18,8 +18,8 @@ use Carp 'croak';
# The most recent version and complete docs are available at:
# http://stein.cshl.org/WWW/software/CGI/
-$CGI::revision = '$Id: CGI.pm,v 1.213 2006-08-21 19:09:10 lstein Exp $';
-$CGI::VERSION='3.21';
+$CGI::revision = '$Id: CGI.pm,v 1.214 2006-08-23 15:22:30 lstein Exp $';
+$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];
}
View
3 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.

0 comments on commit 0fee195

Please sign in to comment.