- alternative bugfix

Author: Sadrak

lib/HTML/Form.pm

@@ -1419,14 +1419,14 @@ sub click
     my($self,$form,$x,$y) = @_;
     for ($x, $y) { $_ = 1 unless defined; }
     local($self->{clicked}) = [$x,$y];
+    local($self->{value})   = "" unless defined $self->value;
     return $form->make_request;
 }
 
 sub form_name_value
 {
     my $self = shift;
     return unless $self->{clicked};
-    $self->value("") unless defined $self->value;
     return $self->SUPER::form_name_value(@_);
 }