| Subject: | upload bug in CGI.pm 3.21 |
| Date: | Tue, 22 Aug 2006 17:15:29 +0200 |
| To: | <bug-CGI.pm [...] rt.cpan.org> |
| From: | "Emanuele Zeppieri" <ema.zep [...] libero.it> |
I've found a subtle bug in CGI.pm 3.21 (it's basically a typo, but it
prevents the uploads).
I've also set up the (obvious) patch, wich is both attached to this
message and inlined here.
Thank you Lincoln for your great work with your *invaluable* CPAN
modules!
Cheers,
Emanuele Zeppieri.
=================
--- CGI.pm 2006-08-21 21:09:10.000000000 +0200
+++ CGI.pm.new 2006-08-22 16:32:55.000000000 +0200
@@ -3419,7 +3419,7 @@
'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];
}
Message body is not shown because sender requested not to inline it.