From 82e313d673e8ffedb89715da591a856c7ccb7aa0 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Mon, 12 Nov 2001 14:36:41 +0000
Subject: expand ${variable}

---
 fml/libexec/Standalone.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.1