diff options
| author | fukachan <fukachan> | 2001-03-10 14:10:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-10 14:10:07 +0000 |
| commit | db636cf2cc29819e0c9546913f4bae81a73ca8ad (patch) | |
| tree | 70a3fdc574ac08ea205d346a4170ff4b6aa93876 | |
| parent | c54631b086a7bee55b8d7af434cfe86e00e532bb (diff) | |
| download | fml8-db636cf2cc29819e0c9546913f4bae81a73ca8ad.tar.gz fml8-db636cf2cc29819e0c9546913f4bae81a73ca8ad.tar.bz2 fml8-db636cf2cc29819e0c9546913f4bae81a73ca8ad.zip | |
bug fix $ml_home_dir check algorithm
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index 8fdf5b77..ff4dda07 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.pm @@ -29,9 +29,6 @@ sub new my ($curproc) = {}; # alloc memory as the struct current_process. my ($cfargs) = {}; - # fndamental checks - croak("Error: \$ml_home_dir not defined") unless $args->{ ml_home_dir }; - # import variables my (@import_vars) = qw(ml_home_prefix ml_home_dir); for my $var (@import_vars) { @@ -44,6 +41,10 @@ sub new } croak "variable $var is not defined.\n"; + # fndamental checks + unless ($args->{ ml_home_dir }) { + croak("Error: \$ml_home_dir not defined"); + } } } |