import ml_home_dir from fmlwrapper

2 files changed, 18 insertions, 2 deletions

diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm
index b76262ca..0eee4aea 100644
--- a/fml/lib/FML/Config.pm
+++ b/fml/lib/FML/Config.pm
@@ -14,10 +14,17 @@ use Carp;
 
 sub new
 {
-    my ($self) = @_;
+    my ($self, $args) = @_;
 
     unless (defined %_fml_config) { %_fml_config = ();}
     my $me = \%_fml_config;
+
+    # import variables
+    if (defined $args) {
+	my ($k, $v);
+	while (($k, $v) = each %$args) { set($me, $k, $v);}
+    }
+
     return bless $me, $self;
 }
 
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm
index 8596b082..f3a62889 100644
--- a/fml/lib/FML/Process/Kernel.pm
+++ b/fml/lib/FML/Process/Kernel.pm
@@ -24,10 +24,19 @@ sub new
 {
     my ($self, $args)    = @_;
     my ($curproc) = {}; # alloc memory as the struct current_process.
+    my $cfargs    = {};
+
+    # import variables
+    if ($args->{ ml_home_dir }) {
+	$cfargs->{ ml_home_dir } = $args->{ ml_home_dir };
+    }
+    else {
+	croak "ml_home_dir is not defined.\n";
+    }
 
     # bind FML::Config object to $curproc
     use FML::Config;
-    $curproc->{ config } = new FML::Config;
+    $curproc->{ config } = new FML::Config $cfargs;
 
     bless $curproc, $self;