--- Form.pm.orig 2008-12-14 01:38:03.722225598 -0800+++ Form.pm 2008-12-14 21:01:00.694654635 -0800@@ -655,19 +655,32 @@ { my $self = shift; my $name;+ ### so name is undef right now++ ### name will stay undef if the following if fails $name = shift if (@_ % 2) == 1; # odd number of arguments+ ### there is no assignment to name following this, so it remains undef+ ### if it was before # try to find first submit button to activate for (@{$self->{'inputs'}}) { next unless $_->can("click");- next if $name && $_->name ne $name;+ ### the next line will fail if $name is undef+ # next if $name && $_->name ne $name;+ ### so we replace it with this:+ next if defined($name) && $_->name ne $name; next if $_->disabled; return $_->click($self, @_); }- Carp::croak("No clickable input with name $name") if $name;+ ### since there was no assignment to $name in the above loop, + ### the following line will also fail if $name is undef, so replace:+ # Carp::croak("No clickable input with name $name") if $name;+ ### with:+ Carp::croak("No clickable input with name $name") if defined($name); $self->make_request; }+### here $name goes out of scope, so no further concern with it is necessary =item @kw = $form->form