X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FTest.pm;h=3b1c0921c00554123d7adf32254b8c799de2db00;hp=9c77417fed8662e66d63044276a515495682d2f1;hb=b14a3eaedbfaf0c90c359b03af2e73b2ba6916e5;hpb=0c4eaa02f8fa5f2ab1bc1787efb018b10c532145 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; }