diff options
author | Ingo Schwarze <schwarze@openbsd.org> | 2017-02-09 15:34:28 +0000 |
---|---|---|
committer | Ingo Schwarze <schwarze@openbsd.org> | 2017-02-09 15:34:28 +0000 |
commit | 02b8d44c020391a80479efe7b49c765eb21306e4 (patch) | |
tree | 1971b5a3eec4621c312582a61cf29dba8a06b10c | |
parent | 9b4c941b49c5f14befeef4b6481a79d9456f780b (diff) | |
download | mandoc-02b8d44c020391a80479efe7b49c765eb21306e4.tar.gz mandoc-02b8d44c020391a80479efe7b49c765eb21306e4.tar.zst mandoc-02b8d44c020391a80479efe7b49c765eb21306e4.zip |
Escape literal braces in a regular expression.
Deprecated perlre(1) syntax reported by Thomas Klausner and Sevan Janiyan.
-rwxr-xr-x | regress/regress.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regress/regress.pl b/regress/regress.pl index 25e6d4f0..2aa988b4 100755 --- a/regress/regress.pl +++ b/regress/regress.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl # -# $Id: regress.pl,v 1.2 2017/02/08 16:56:15 schwarze Exp $ +# $Id: regress.pl,v 1.3 2017/02/09 15:34:28 schwarze Exp $ # # Copyright (c) 2017 Ingo Schwarze <schwarze@openbsd.org> # @@ -142,7 +142,7 @@ sub parse_makefile ($) { my $var = $1; my $opt = $2; my $val = $3; - $val =~ s/\${(\w+)}/$vars{$1}/; + $val =~ s/\$\{(\w+)\}/$vars{$1}/; $val = "$vars{$var} $val" if $opt eq '+'; $vars{$var} = $val unless $opt eq '?' && defined $vars{$var}; |