diff options
Diffstat (limited to 'incdec.pm')
| -rw-r--r-- | incdec.pm | 4 | 
1 files changed, 2 insertions, 2 deletions
| @@ -4,7 +4,7 @@ use warnings;  package incdec;  sub incdec { -	my ($line, $point_position, $is_backward) = @_; +	my ($line, $increment_by, $point_position, $is_backward) = @_;  	$point_position ||= 0;  	$is_backward ||= 0; @@ -38,7 +38,7 @@ sub incdec {  	}  	pos($line) = $start_position; -	$line =~ s/\G([^\d]*)(\d+)/$1 . ($2 + 1)/e; +	$line =~ s/\G([^\d]*)(\d+)/$1 . ($2 + $increment_by)/e;  	return $line;  } | 
