click_button: fix count of present exclusive options (quick fix)

with options "x" and/or "y", @present_exclusive_options would contain "undef" elements, which will be counted too. Therefore click_button with x and y will always have more than > 1 options.
libwww-perl · Jan 30, 2024 · adc6dfc · adc6dfc
1 parent 0308759
commit adc6dfc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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(