diff options
| author | fukachan <fukachan> | 2004-02-26 05:07:57 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-02-26 05:07:57 +0000 |
| commit | 490fa80c97e2ff6c28676ee1bfe42230af0b6c8a (patch) | |
| tree | 3123166223eef1ad5c812bed4bc52e8016e74bcc /fml/lib | |
| parent | 9cbc1a9eb6900b5e980013b63dfeb51a3a7db5fa (diff) | |
| download | fml8-490fa80c97e2ff6c28676ee1bfe42230af0b6c8a.tar.gz fml8-490fa80c97e2ff6c28676ee1bfe42230af0b6c8a.tar.bz2 fml8-490fa80c97e2ff6c28676ee1bfe42230af0b6c8a.zip | |
new option -o key=value which overrider configurations.
you can use duplicated -o options e.g. -o key1=value1 -o key2=value2.
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 $< ? { |