|
From: <sv...@va...> - 2015-09-05 21:19:19
|
Author: florian
Date: Sat Sep 5 22:19:11 2015
New Revision: 15631
Log:
Avoid warnings about deprecated unescaped curly brackets in regular
expressions. Happens with perl 5.22 and newer.
Patch by Matthias Schwarzott <zz...@ge...>
Modified:
trunk/tests/vg_regtest.in
Modified: trunk/tests/vg_regtest.in
==============================================================================
--- trunk/tests/vg_regtest.in (original)
+++ trunk/tests/vg_regtest.in Sat Sep 5 22:19:11 2015
@@ -309,7 +309,7 @@
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);
|