From 02b8d44c020391a80479efe7b49c765eb21306e4 Mon Sep 17 00:00:00 2001 From: Ingo Schwarze Date: Thu, 9 Feb 2017 15:34:28 +0000 Subject: Escape literal braces in a regular expression. Deprecated perlre(1) syntax reported by Thomas Klausner and Sevan Janiyan. --- regress/regress.pl | 4 ++-- 1 file 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 # @@ -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}; -- cgit v1.2.3-56-ge451