aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTeddy Wing2022-05-25 01:32:20 +0200
committerTeddy Wing2022-05-25 01:32:20 +0200
commit1c7000e9e25aba7406a09d3530e756cfc8e52386 (patch)
tree62c3274e8b0f8917348ed20ebaaf6405c1521219
parentea3cd1980b86d647fb4a1d771489c93ebd1d77e0 (diff)
downloadreadline-incdec-1c7000e9e25aba7406a09d3530e756cfc8e52386.tar.bz2
incdec.pm: Fix leading-zero handling for single-digit "0"
Incrementing or decrementing "0" didn't work with the leading-zero idea I had.
-rw-r--r--incdec.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/incdec.pm b/incdec.pm
index 39eaba4..2c4bdef 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*)/g) {
+ while ($line =~ /(-?([1-9]\d*|\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*)/$1 + $increment_by/e;
+ $line =~ s/\G(-?([1-9]\d*|\d))/$1 + $increment_by/e;
return ($line, $start_position);
}