# | Line 45 | Line 45 | sub match { | |
---|---|---|
45 | ||
46 | my $nm=0; | |
47 | ||
48 | < | for ( $i=0; $i <= $#keys; $i++ ) { |
48 | > | for ( $i=0; (($i <= $#keys) && ($i <=$#{$self->{keys}})); $i++ ) { |
49 | if ( $self->{keys}[$i] eq $keys[$i] ) { | |
50 | $nm++; | |
51 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |