diff options
| author | fukachan <fukachan> | 2001-01-30 16:36:19 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-30 16:36:19 +0000 |
| commit | 3095ebb33474cab8dbd3a9da504672591c3259d3 (patch) | |
| tree | fa27ecf6db14b57a118ef28012fbbabd33720e0b /fml | |
| parent | f5bae45b4338f1e8b3b2e723953aa16f42529264 (diff) | |
| download | fml8-3095ebb33474cab8dbd3a9da504672591c3259d3.tar.gz fml8-3095ebb33474cab8dbd3a9da504672591c3259d3.tar.bz2 fml8-3095ebb33474cab8dbd3a9da504672591c3259d3.zip | |
expand variables in variables when it matches ^[a-z0-9]+[a-z0-9]$
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Config.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index ba1cf424..59e11719 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -150,7 +150,7 @@ sub _expand_variables $org = $config->{ $x }; $config->{$x} =~ - s/\$([a-z_]+)/(defined $config->{$1} ? $config->{$1} : '')/ge; + s/\$([a-z_]+[a-z0-9])/(defined $config->{$1} ? $config->{$1} : '')/ge; last EXPANSION_LOOP if $config->{ $x } !~ /\$/o; last EXPANSION_LOOP if $org eq $config->{ $x }; |