* win32/win32.c (init_env): use _wputenv() instead of

  SetEnvironmentVariableW() because latter doesn't set msvcrt's environ
  work area, of course.
  [Bug ruby#2552]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@26296 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,10 @@
+Tue Jan 12 14:53:07 2010  NAKAMURA Usaku  <[email protected]>
+
+	* win32/win32.c (init_env): use _wputenv() instead of
+	  SetEnvironmentVariableW() because latter doesn't set msvcrt's environ
+	  work area, of course.
+	  [Bug #2552]
+
 Tue Jan 12 13:33:54 2010  NAKAMURA Usaku  <[email protected]>
 
 	* file.c (realpath_rec): trace symbolic link only when supporting

win32/win32.c

@@ -435,6 +435,7 @@ init_env(void)
 {
     static const WCHAR TMPDIR[] = L"TMPDIR";
     WCHAR env[_MAX_PATH];
+    WCHAR *buf;
     DWORD len;
     BOOL f;
 
@@ -458,7 +459,9 @@ init_env(void)
 	}
 	if (f) {
 	    regulate_path(env);
-	    SetEnvironmentVariableW(L"HOME", env);
+	    buf = ALLOCA_N(WCHAR, 5 + lstrlenW(env) + 1);
+	    wsprintfW(buf, L"HOME=%s", env);
+	    _wputenv(buf);
 	}
     }
 
@@ -468,7 +471,9 @@ init_env(void)
 	    NTLoginName = "<Unknown>";
 	    return;
 	}
-	SetEnvironmentVariableW(L"USER", env);
+	buf = ALLOCA_N(WCHAR, 5 + lstrlenW(env) + 1);
+	wsprintfW(buf, L"USER=%s", env);
+	_wputenv(buf);
     }
     NTLoginName = strdup(rb_w32_getenv("USER"));
 
@@ -482,7 +487,9 @@ init_env(void)
 	if (*(p - 1) != L'/') *p++ = L'/';
 	if (p - env + numberof(temp) < numberof(env)) {
 	    memcpy(p, temp, sizeof(temp));
-	    SetEnvironmentVariableW(TMPDIR, env);
+	    buf = ALLOCA_N(WCHAR, lstrlenW(TMPDIR) + 1 + lstrlenW(env) + 1);
+	    wsprintfW(buf, L"%s=%s", TMPDIR, env);
+	    _wputenv(buf);
 	}
     }
 }