X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FTest.pm;h=3b1c0921c00554123d7adf32254b8c799de2db00;hb=e95a28ea14289ffcfa652bff9b179d3820b56242;hp=9c77417fed8662e66d63044276a515495682d2f1;hpb=d22baa4e71bfa9e153c1fe1152ff4c748f1d935c;p=freeside.git diff --git a/FS/FS/Test.pm b/FS/FS/Test.pm index 9c77417fe..3b1c0921c 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; }