diff options
Diffstat (limited to 'fml/lib')
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index c37da213..b144ad7e 100644 --- a/fml/lib/FML/Process/Kernel.pm +++ b/fml/lib/FML/Process/Kernel.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: Kernel.pm,v 1.206 2004/01/14 13:39:58 fukachan Exp $ +# $FML: Kernel.pm,v 1.207 2004/02/15 09:34:41 fukachan Exp $ # package FML::Process::Kernel; @@ -123,6 +123,13 @@ sub new sprintf("fml-devel %s", $args->{ fml_version }); } + # 1.4 overwrite variables by -o options + if (defined $args->{ options }->{ o }) { + my ($k, $v); + my $opts = $args->{ options }->{ o }; + while (($k, $v) = each %$opts) { $cfargs->{ $k } = $v;} + } + # 2.1 speculate $fml_owner_home_dir by the current process uid # XXX we should compare $fml_owner and $< ? { |