splice( # and strip them off @parts as well
@parts, 0, scalar(@{[split('/', $try_part)]})
))); # @{[]} to avoid split to @_
- $found=1;
+ $found=1;
}
my @try_actions = @{$children->{$try_part}};
TRY_ACTION: foreach my $action (@try_actions) {
$#$action_parts < $#{$best_action->{parts}} ||
($#$action_parts == $#{$best_action->{parts}} &&
$#$captures < $#{$best_action->{captures}} && ($found > $best_action->{found})
- ))) {
+ ))) {
$best_action = {
actions => [ $action, @$actions ],
captures=> [ @captures, @$captures ],