incdec.pm: Extract number matching regex to a variable

So it can be re-used in both the find and the replace steps without
being duplicated now that it's become more complicated.

1 files changed, 4 insertions, 2 deletions

diff --git a/incdec.pm b/incdec.pm
index f35c963..0ec0ab5 100644
--- a/incdec.pm
+++ b/incdec.pm
@@ -27,10 +27,12 @@ sub incdec {
 	$point_position ||= 0;
 	$is_backward ||= 0;
 
+	my $number_regex = '-?([1-9]\d*|0\D|0$)';
+
 	my $start_position = 0;
 	my $previous_match_start = 0;
 	my $i = 0;
-	while ($line =~ /(-?([1-9]\d*|0\D|0$))/g) {
+	while ($line =~ /($number_regex)/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 +66,7 @@ sub incdec {
 	}
 
 	pos($line) = $start_position;
-	$line =~ s/\G(-?([1-9]\d*|0\D|0$))/$1 + $increment_by/e;
+	$line =~ s/\G($number_regex)/$1 + $increment_by/e;
 
 	return ($line, $start_position);
 }