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 bfb269f9600cc905ec16ddfde31f0ad8646907f9..a441f424c6ef30e34cdb097b370f3e46a8e22424 100755 (executable)
--- 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);