diff --git a/lib/WWW/Mechanize.pm b/lib/WWW/Mechanize.pm index a5fb033f..6939f9e2 100644 --- a/lib/WWW/Mechanize.pm +++ b/lib/WWW/Mechanize.pm @@ -2538,7 +2538,8 @@ 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(