From 5193b137b5a9034ce79946edd40760df2f63a82a Mon Sep 17 00:00:00 2001 From: Jean Delvare Date: Tue, 25 Apr 2017 15:17:53 +0200 Subject: test: Escape curly braces in regex Curly braces in perl regex are supposed to be escaped, recent versions of perl complain when they aren't: Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE (\w+)}/ at ./run line 114. Unescaped left brace in regex is deprecated, passed through in regex; marked by <-- HERE in m/%{ <-- HERE \?}/ at ./run line 290. Signed-off-by: Jean Delvare --- test/run | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/run b/test/run index 942014e..03afc7a 100755 --- a/test/run +++ b/test/run @@ -112,7 +112,7 @@ sub flush_output() sub substitute_vars($) { my ($line) = @_; - $line =~ s[%{(\w+)}][defined $ENV{$1} ? $ENV{$1} : ""]eg; + $line =~ s[%\{(\w+)\}][defined $ENV{$1} ? $ENV{$1} : ""]eg; return $line; } @@ -288,7 +288,7 @@ while (defined(my $line = )) { # Parse the next command if ($line =~ s/^\s*\$ ?//) { # Substitute %{?} with the last command's status - $line =~ s[%{\?}][$last_status]eg; + $line =~ s[%\{\?\}][$last_status]eg; chomp($prog = substitute_vars($line)); $prog_line = $lineno; -- cgit v1.0-41-gc330