diff options
Diffstat (limited to 'FS/FS/Test.pm')
| -rw-r--r-- | FS/FS/Test.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm index 9c77417..3b1c092 100644 --- a/FS/FS/Test.pm +++ b/FS/FS/Test.pm @@ -211,7 +211,7 @@ and then pass the form object to L</post> to submit it. sub form { my $self = shift; my $name = shift; - my ($form) = grep { $_->attr('name') eq $name } $self->forms; + my ($form) = grep { ($_->attr('name') || '') eq $name } $self->forms; $form; } |