diff options
author | John Ankarström <john@ankarstrom.se> | 2021-05-26 15:37:14 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-05-26 15:37:14 +0200 |
commit | c22ed54565b34c1600f30aaca26a4f5e116bcaf5 (patch) | |
tree | f085c3bc59dadc332d03c055c2ebf53b5009a6cb | |
parent | 0fcae069b0f4c08a11d39eea8cd05e83ae8423fa (diff) | |
download | mum-c22ed54565b34c1600f30aaca26a4f5e116bcaf5.tar.gz |
mum: Fix //, ?? bug
-rwxr-xr-x | src/mum | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -211,7 +211,8 @@ sub toloc { return; } - $start = $MESSAGE+1 if not $start; + $start = $MESSAGE if not $start; + $start++; $loc = $start-1; for (@MESSAGES[$start-1..$#MESSAGES]) { @@ -231,7 +232,8 @@ sub toloc { return; } - $start = $MESSAGE-1 if not $start; + $start = $MESSAGE if not $start; + $start--; $loc = $start+1; for (reverse @MESSAGES[0..$start-1]) { |