X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FTest.pm;h=1bd6119cc50abae268cf613d05e08a9b781a323a;hb=165b1825de624fb25f982968383a35eca9efcbaf;hp=1f2b44bd64838085bcf0120b1b28f57f3bb57f18;hpb=1079e4e27cbb9e13e9ae4eada00ffdbc81066cd0;p=freeside.git diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm index 1f2b44bd6..1bd6119cc 100644 --- a/FS/FS/Test.pm +++ b/FS/FS/Test.pm @@ -211,7 +211,7 @@ and then pass the form object to L 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; }