diff options
| author | fukachan <fukachan> | 2001-01-21 08:13:47 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-21 08:13:47 +0000 |
| commit | 8ceb857e9e510eeb15d98c42a2cb35dc2f51bccf (patch) | |
| tree | 41013e75acde04a995e1b94302d3d1c7fd4b4865 /fml/lib | |
| parent | fb239ce9484edf1b3c536ee2be022bfae2801347 (diff) | |
| download | fml8-8ceb857e9e510eeb15d98c42a2cb35dc2f51bccf.tar.gz fml8-8ceb857e9e510eeb15d98c42a2cb35dc2f51bccf.tar.bz2 fml8-8ceb857e9e510eeb15d98c42a2cb35dc2f51bccf.zip | |
share _expand_variables()
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Config.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm index 0eee4aea..8f17a13d 100644 --- a/fml/lib/FML/Config.pm +++ b/fml/lib/FML/Config.pm @@ -117,8 +117,14 @@ sub load_file sub expand_variables { my ($self) = @_; - my $config = \%_fml_config; - my @order = keys %_fml_config; + _expand_variables( \%_fml_config ); +} + + +sub _expand_variables +{ + my ($config) = @_; + my @order = keys %$config; # check whether the variable definition is recursive. # For example, definition "var_a = $var_a/b/c" causes a loop. |