diff options
| -rw-r--r-- | fml/lib/FML/Process/Kernel.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Kernel.pm b/fml/lib/FML/Process/Kernel.pm index f2fb485e..223c551c 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.62 2001/11/25 05:15:37 fukachan Exp $ +# $FML: Kernel.pm,v 1.63 2001/11/26 08:58:35 fukachan Exp $ # package FML::Process::Kernel; @@ -111,6 +111,12 @@ sub new } } + # speculate $fml_owner_home_dir by the current process uid + { + my $dir = (getpwuid($<))[7]; + $cfargs->{ 'fml_owner_home_dir' } = $dir if defined $dir; + } + # import $fml_version if (defined $args->{ fml_version }) { $cfargs->{ fml_version } = "fml-devel ". $args->{ fml_version }; |