3cb7e5c50f
Update from version 0.9.5.1 to 0.9.5.2. Pkgsrc change: o Add in a patch from CPAN GNATS # 7583. Upstream change (not recorded in Changes): o Check for undefinedness before using it as a value.
15 lines
392 B
Text
15 lines
392 B
Text
$NetBSD: patch-aa,v 1.1 2008/08/05 11:33:24 he Exp $
|
|
|
|
From CPAN PR#7583.
|
|
|
|
--- Form.pm.orig 2001-12-01 12:05:54.000000000 +0100
|
|
+++ Form.pm
|
|
@@ -437,7 +437,7 @@ sub checkbox_ischecked {
|
|
|
|
sub is_checkbox {
|
|
my ($self, $name) = @_;
|
|
- if (defined($self->{'checkboxstate'}->($name))) {
|
|
+ if (defined($self->{'checkboxstate'}->{$name})) {
|
|
return 1;
|
|
} else {
|
|
return undef;
|