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