diff options
| author | fukachan <fukachan> | 2001-01-24 04:46:00 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-24 04:46:00 +0000 |
| commit | 3250a6e7addbab9c2a76b03dae5cc98611ac2f03 (patch) | |
| tree | 7da508a456668bf8b4f2871982deb33fce301188 /fml/lib/FML/Process/Kernel.pm | |
| parent | 8a575043e66ef7a2af6b9858adeb3a6152964803 (diff) | |
| download | fml8-3250a6e7addbab9c2a76b03dae5cc98611ac2f03.tar.gz fml8-3250a6e7addbab9c2a76b03dae5cc98611ac2f03.tar.bz2 fml8-3250a6e7addbab9c2a76b03dae5cc98611ac2f03.zip | |
import ml_home_prefix
Diffstat (limited to 'fml/lib/FML/Process/Kernel.pm')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 13fc0ef4..92262a52 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -27,11 +27,14 @@ sub new 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"; + my (@import_vars) = qw(ml_home_dir ml_home_prefix); + for my $var (@import_vars) { + if ($args->{ $var }) { + $cfargs->{ $var } = $args->{ $var }; + } + else { + croak "variable $var is not defined.\n"; + } } # import $fml_version |