diff --git a/lib/WWW/Mechanize.pm b/lib/WWW/Mechanize.pm index a5fb033f..0fe841c5 100644 --- a/lib/WWW/Mechanize.pm +++ b/lib/WWW/Mechanize.pm @@ -2538,7 +2538,7 @@ sub click_button { value => 1, ); - my @present_exclusive_options = @exclusive_options{ keys %args }; + my @present_exclusive_options = map { $_ || () } @exclusive_options{ keys %args }; if ( scalar @present_exclusive_options > 1 ) { $self->die(