- my $path_i = $self->{'path_i'};
- croak "Can't jump if nav_loop not started" if ! defined $path_i;
-
- if ($i =~ /^\w+$/) {
- if ( $i eq 'FIRST' ) { $i = - $path_i - 1 }
- elsif ($i eq 'LAST' ) { $i = $#$path - $path_i }
- elsif ($i eq 'NEXT' ) { $i = 1 }
- elsif ($i eq 'CURRENT' ) { $i = 0 }
- elsif ($i eq 'PREVIOUS') { $i = -1 }
- else { # look for a step by that name
- for (my $j = $#$path; $j >= 0; $j --) {
- if ($path->[$j] eq $i) {
- $i = $j - $path_i;
- last;
- }
+ my $path_i = $self->{'path_i'}; croak "Can't jump if nav_loop not started" if ! defined $path_i;
+
+ if ( $i eq 'FIRST' ) { $i = - $path_i - 1 }
+ elsif ($i eq 'LAST' ) { $i = $#$path - $path_i }
+ elsif ($i eq 'NEXT' ) { $i = 1 }
+ elsif ($i eq 'CURRENT' ) { $i = 0 }
+ elsif ($i eq 'PREVIOUS') { $i = -1 }
+ else { # look for a step by that name
+ for (my $j = $#$path; $j >= 0; $j --) {
+ if ($path->[$j] eq $i) {
+ $i = $j - $path_i;
+ last;