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-e3496478575027810844994990fbc789f4387939.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; |
