| Subject: | Bug in Http::Request::Form |
The function is_checkbox in Http-Request-Form-0.952 should be this:
sub is_checkbox {
my ($self, $name) = @_;
if (defined($self->{'checkboxstate'}->{$name})) {
return 1;
} else {
return undef;
}
}
Currently (v. 0.952) this line is incorrect:
if (defined($self->{'checkboxstate'}->($name))) {
This error is shown without the correctio:
Not a CODE reference at c:/Perl/site/lib/HTTP/Request/Form.pm line 440.
--- Form.pm.old 2004-09-08 16:41:44.265625000 +0200
+++ Form.pm 2004-09-08 15:31:49.640625000 +0200
@@ -437,7 +437,7 @@
sub is_checkbox {
my ($self, $name) = @_;
- if (defined($self->{'checkboxstate'}->($name))) {
+ if (defined($self->{'checkboxstate'}->{$name})) {
return 1;
} else {
return undef;