diff options
| -rw-r--r-- | incdec.pm | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -15,7 +15,6 @@ sub incdec { # rather than only part of its digits. my $line_start = ''; my $line_part = $line; - my $previous_point_position = 0; while ($point_position < length($line_part)) { $line_part =~ /(\d+)/; if ($-[0] <= $point_position && $point_position < $+[0]) { @@ -27,7 +26,6 @@ sub incdec { if ($point_position >= $+[0]) { $line_start .= substr($line_part, 0, $+[0]); $line_part = substr($line_part, $+[0]); - $previous_point_position = $point_position; $point_position -= $+[0]; next; |