incdec: Handle increments relative to the cursor position

This will increment the next number to the right of the given cursor
position.

1 files changed, 7 insertions, 1 deletions

diff --git a/incdec.pm b/incdec.pm
index 3c229a4..2dfeb74 100644
--- a/incdec.pm
+++ b/incdec.pm
@@ -9,7 +9,13 @@ sub incdec {
 	$point_position ||= 0;
 	$is_backward ||= 0;
 
-	$line =~ s/(\d+)/$1+1/e;
+	my $line_part = substr $line, $point_position;
+
+	$line_part =~ s/(\d+)/$1+1/e;
+
+	my $line_excluded = substr $line, 0, $point_position;
+
+	$line = $line_excluded . $line_part;
 
 	return $line;
 }