Mercurial > octave
diff liboctave/oct-env.cc @ 2947:cf676ff8b702
[project @ 1997-05-09 13:32:46 by jwe]
author | jwe |
---|---|
date | Fri, 09 May 1997 13:32:52 +0000 |
parents | 2e1757f57ce6 |
children | 9580887dd160 |
line wrap: on
line diff
--- a/liboctave/oct-env.cc Fri May 09 12:42:36 1997 +0000 +++ b/liboctave/oct-env.cc Fri May 09 13:32:52 1997 +0000 @@ -54,6 +54,7 @@ #include "lo-utils.h" #include "oct-env.h" #include "oct-passwd.h" +#include "oct-syscalls.h" octave_env::octave_env (void) : follow_symbolic_links (true), verbatim_pwd (true), @@ -359,7 +360,14 @@ { string hd = do_getenv ("HOME"); - return hd.empty () ? string ("I have no home!") : hd; + if (hd.empty ()) + { + octave_passwd pw = octave_passwd::getpwuid (octave_syscalls::getuid ()); + + hd = pw ? pw.dir () : string ("I have no home!"); + } + + return hd; } string @@ -370,7 +378,7 @@ if (user_name.empty ()) { - octave_passwd pw = octave_passwd::getpwuid (getuid ()); + octave_passwd pw = octave_passwd::getpwuid (octave_syscalls::getuid ()); user_name = pw ? string ("I have no name!") : pw.name (); }