diff options
| -rw-r--r-- | incdec.pm | 33 |
1 files changed, 26 insertions, 7 deletions
@@ -9,22 +9,41 @@ sub incdec { $point_position ||= 0; $is_backward ||= 0; + my $original_point_position = $point_position; + # If point is within a number, move it to ensure we match the whole number # rather than only part of its digits. - $line =~ /(\d+)/; - if ($-[0] <= $point_position && $point_position < $+[0]) { - $point_position = $-[0]; + my $line_part = $line; + while (1) { + $line_part =~ /(\d+)/; + if ($-[0] <= $point_position && $point_position < $+[0]) { + $point_position = $-[0]; + + last; + } + + if ($point_position >= $+[0]) { + # repeat loop + next; + } + else { + last; + } + + $line_part = substr $line_part, $point_position; } - my $line_part = substr $line, $point_position; + # my $line_part = substr $line, $point_position; $line_part =~ s/(\d+)/$1+1/e; - my $line_excluded = substr $line, 0, $point_position; + my $line_excluded = substr $line, 0, $original_point_position; + + # $line = $line_excluded . $line_part; - $line = $line_excluded . $line_part; + # return $line; - return $line; + return $line_part; } 1; |