12 lines
321 B
Diff
12 lines
321 B
Diff
|
--- test/run
|
||
|
|
+++ test/run
|
||
|
|
@@ -106,7 +106,7 @@ for (;;) {
|
||
|
|
if (defined $line) {
|
||
|
|
# Substitute %VAR and %{VAR} with environment variables.
|
||
|
|
$line =~ s[%(\w+)][$ENV{$1}]eg;
|
||
|
|
- $line =~ s[%{(\w+)}][$ENV{$1}]eg;
|
||
|
|
+ $line =~ s[%\{(\w+)}][$ENV{$1}]eg;
|
||
|
|
}
|
||
|
|
if (defined $line) {
|
||
|
|
if ($line =~ s/^\s*< ?//) {
|