Mercurial > hg > octave-nkf

diff liboctave/oct-env.cc @ 5454:a921c9c17ba5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-09-19 15:44:55 by jwe]
author jwe
date Mon, 19 Sep 2005 15:44:55 +0000
parents ed08548b9054
children 250917610b55
line wrap: on
line diff
--- a/liboctave/oct-env.cc
+++ b/liboctave/oct-env.cc
@@ -370,7 +370,13 @@
 #if defined (__MINGW32__)
   // Maybe we are started directly from cmd.exe
   if (hd.empty ())
-    hd = do_getenv ("HOMEPATH");
+    {
+      std::string drv = do_getenv ("HOMEDRIVE");
+      if (drv.empty ())
+	hd = do_getenv ("HOMEPATH");
+      else
+	hd = drv + do_getenv ("HOMEPATH");
+    }
 #endif
 
   if (hd.empty ())