From 3095ebb33474cab8dbd3a9da504672591c3259d3 Mon Sep 17 00:00:00 2001 From: fukachan Date: Tue, 30 Jan 2001 16:36:19 +0000 Subject: expand variables in variables when it matches ^[a-z0-9]+[a-z0-9]$ --- fml/lib/FML/Config.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 }; -- cgit v1.2.1