incdec.pm: Idea for correctly excluding leading zero

This passes the two leading zero tests, but fails the test that tries to
increment a single-digit "0" at the last position in the string.

Also fix the test's expected start position.

2 files changed, 3 insertions, 3 deletions

diff --git a/incdec.pm b/incdec.pm
index 2c4bdef..8cc0b32 100644
--- a/incdec.pm
+++ b/incdec.pm
@@ -30,7 +30,7 @@ sub incdec {
 	my $start_position = 0;
 	my $previous_match_start = 0;
 	my $i = 0;
-	while ($line =~ /(-?([1-9]\d*|\d))/g) {
+	while ($line =~ /(-?([1-9]\d*|0\D))/g) {
 		if ($is_backward) {
 			# Set start position to the current match start. This gives us the
 			# correct start position when incrementing the last number in a
@@ -64,7 +64,7 @@ sub incdec {
 	}
 
 	pos($line) = $start_position;
-	$line =~ s/\G(-?([1-9]\d*|\d))/$1 + $increment_by/e;
+	$line =~ s/\G(-?([1-9]\d*|0\D))/$1 + $increment_by/e;
 
 	return ($line, $start_position);
 }
diff --git a/t/100-increment-decrement.t b/t/100-increment-decrement.t
index 50d76c5..d83a35a 100644
--- a/t/100-increment-decrement.t
+++ b/t/100-increment-decrement.t
@@ -53,7 +53,7 @@ is_deeply(
 );
 
 @got = incdec::incdec('test A-02 0', -1);
-@want = ('test A-03 0', 7);
+@want = ('test A-01 0', 8);
 is_deeply(
 	\@got,
 	\@want,