|
Lines 106-112
for (;;) {
Link Here
|
| 106 |
if (defined $line) { |
106 |
if (defined $line) { |
| 107 |
# Substitute %VAR and %{VAR} with environment variables. |
107 |
# Substitute %VAR and %{VAR} with environment variables. |
| 108 |
$line =~ s[%(\w+)][$ENV{$1}]eg; |
108 |
$line =~ s[%(\w+)][$ENV{$1}]eg; |
| 109 |
$line =~ s[%{(\w+)}][$ENV{$1}]eg; |
109 |
$line =~ s[%\{(\w+)}][$ENV{$1}]eg; |
| 110 |
} |
110 |
} |
| 111 |
if (defined $line) { |
111 |
if (defined $line) { |
| 112 |
if ($line =~ s/^\s*< ?//) { |
112 |
if ($line =~ s/^\s*< ?//) { |
| 113 |
- |
|
|
