| Subject: | Problem is in CGI/Util.pm when last rearranged param doesn't have any value. |
There is problem in method rearrange, when is last or any value
empty(undef). If is value undefined that can be printed in this format:
<form method="post" action="/index.pl" id>
| Subject: | cgi.diff |
--- CGI/Util.pm~ 2013-02-16 02:31:28.925631427 +0100
+++ CGI/Util.pm 2013-02-16 02:31:52.117928210 +0100
@@ -116,9 +116,9 @@
my $key = lc(shift(@param));
$key =~ s/^\-//;
if (exists $pos{$key}) {
- $result[$pos{$key}] = shift(@param);
+ $result[$pos{$key}] = (shift(@param) || next);
} else {
- $leftover{$key} = shift(@param);
+ $leftover{$key} = (shift(@param) || next);
}
}