diff options
| author | Teddy Wing | 2022-05-26 17:03:27 +0200 | 
|---|---|---|
| committer | Teddy Wing | 2022-05-26 17:03:27 +0200 | 
| commit | e3496478575027810844994990fbc789f4387939 (patch) | |
| tree | 604cdd66c81dccc127cf3ef8e8e58555315265eb | |
| parent | 9aadce83d2318ba8e161cd4b8a7664f657df0915 (diff) | |
| download | readline-incdec-master.tar.bz2 | |
The single quotes caused a syntax error in the Bash script when included
because the Perl script is included in a Bash single-quoted string.
Remove the single quotes to fix the Bash inclusion.
| -rw-r--r-- | incdec.bash | 2 | ||||
| -rw-r--r-- | incdec.pm | 2 | 
2 files changed, 2 insertions, 2 deletions
| diff --git a/incdec.bash b/incdec.bash index 666e3c3..2ceeb0c 100644 --- a/incdec.bash +++ b/incdec.bash @@ -30,7 +30,7 @@ sub incdec {  	$point_position ||= 0;  	$is_backward ||= 0; -	my $number_regex = '-?([1-9]\d*|0\D|0$)'; +	my $number_regex = q/-?([1-9]\d*|0\D|0$)/;  	my $start_position = 0;  	my $previous_match_start = 0; @@ -27,7 +27,7 @@ sub incdec {  	$point_position ||= 0;  	$is_backward ||= 0; -	my $number_regex = '-?([1-9]\d*|0\D|0$)'; +	my $number_regex = q/-?([1-9]\d*|0\D|0$)/;  	my $start_position = 0;  	my $previous_match_start = 0; | 
