HTML::Form::find_input() has a 1-based index

libwww-perl · Feb 21, 2020 · 5d631c2 · 5d631c2
1 parent 2a0e4ad
commit 5d631c2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/WWW/Mechanize.pm b/lib/WWW/Mechanize.pm
@@ -1953,7 +1953,7 @@ sub tick {
     my $set = @_ ? shift : 1;  # default to 1 if not passed
 
     # loop though all the inputs
-    my $index = 0;
+    my $index = 1;
     while ( my $input = $self->current_form->find_input( $name, 'checkbox', $index ) ) {
         # Can't guarantee that the first element will be undef and the second
         # element will be the right name