incdec: Idea for handling point within subsequent numbers

Previously, we only handled incrementing when point was in the middle of
the number if the number was the first on the line.

This is code from last week or so. Wasn't really analysing it. Don't
remember entirely. Currently, it loops infinitely on the fifth test.

1 files changed, 26 insertions, 7 deletions

diff --git a/incdec.pm b/incdec.pm
index d4b1460..f9397b5 100644
--- a/incdec.pm
+++ b/incdec.pm
@@ -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;