diff options
| author | fukachan <fukachan> | 2001-11-12 14:36:41 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-12 14:36:41 +0000 |
| commit | 82e313d673e8ffedb89715da591a856c7ccb7aa0 (patch) | |
| tree | 57d43f79bd3792269a0ac5d1adb83e9b3f61380f /fml/libexec | |
| parent | 443964b1fb769c73588271260a3b9f1d00024296 (diff) | |
| download | fml8-82e313d673e8ffedb89715da591a856c7ccb7aa0.tar.gz fml8-82e313d673e8ffedb89715da591a856c7ccb7aa0.tar.bz2 fml8-82e313d673e8ffedb89715da591a856c7ccb7aa0.zip | |
expand ${variable}
Diffstat (limited to 'fml/libexec')
| -rw-r--r-- | fml/libexec/Standalone.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/fml/libexec/Standalone.pm b/fml/libexec/Standalone.pm index de714b0e..7192e3e7 100644 --- a/fml/libexec/Standalone.pm +++ b/fml/libexec/Standalone.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Standalone.pm,v 1.6 2001/05/29 16:21:17 fukachan Exp $ +# $FML: Standalone.pm,v 1.7 2001/10/09 12:39:50 fukachan Exp $ # @@ -132,6 +132,9 @@ sub _expand_variables while ($max++ < 16) { $org = $config->{ $x }; + if ($config->{ $x } =~ /\{/) { # expand ${prefix}/xxx ... + $config->{ $x } =~ s/\$\{([a-z_]+)\}/$config->{$1}/g; + } $config->{ $x } =~ s/\$([a-z_]+)/$config->{$1}/g; last EXPANSION_LOOP if $config->{ $x } !~ /\$/o; |