diff options
| author | fukachan <fukachan> | 2001-12-18 12:55:47 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-18 12:55:47 +0000 |
| commit | 2f7d943439aa46e731cd2e458d49afbbd9c41301 (patch) | |
| tree | 2387dfdb319312a7d3b9c3fbace56dc0423429ef /fml/lib/FML/Process | |
| parent | b8ca81303f87d9ff73544f11ee3b317f5975e69d (diff) | |
| download | fml8-2f7d943439aa46e731cd2e458d49afbbd9c41301.tar.gz fml8-2f7d943439aa46e731cd2e458d49afbbd9c41301.tar.bz2 fml8-2f7d943439aa46e731cd2e458d49afbbd9c41301.zip | |
define $fml_owner_home_dir by process $uid
Diffstat (limited to 'fml/lib/FML/Process')
| -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 }; |