From: Florian Krohm <florian@eich-krohm.de>
Date: Sat, 5 Sep 2015 21:19:11 +0000 (+0000)
Subject: Avoid warnings about deprecated unescaped curly brackets in regular
X-Git-Tag: svn/VALGRIND_3_11_0~26
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=97b615cff634c8793ff861d024158cdbd8cb72ed;p=thirdparty%2Fvalgrind.git

Avoid warnings about deprecated unescaped curly brackets in regular
expressions. Happens with perl 5.22 and newer.
Patch by Matthias Schwarzott <zzam@gentoo.org>


git-svn-id: svn://svn.valgrind.org/valgrind/trunk@15631
---

diff --git a/tests/vg_regtest.in b/tests/vg_regtest.in
index bfb269f960..a441f424c6 100755
--- a/tests/vg_regtest.in
+++ b/tests/vg_regtest.in
@@ -309,7 +309,7 @@ sub read_vgtest_file($)
 	    next;
 	} elsif ($line =~ /^\s*vgopts:\s*(.*)$/) {
             my $addvgopts = $1;
-            $addvgopts =~ s/\${PWD}/$ENV{PWD}/g;
+            $addvgopts =~ s/\$\{PWD\}/$ENV{PWD}/g;
             $vgopts = $vgopts . " " . $addvgopts;   # Nb: Make sure there's a space!
         } elsif ($line =~ /^\s*prog:\s*(.*)$/) {
             $prog = validate_program(".", $1, 0, 0);