diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-06 23:44:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-06 23:44:26 (GMT) |
| commit | 019db2eeac52e67aea6dfa380fb13f84f06889ca (patch) | |
| tree | 695c1eadd2a737d0f0c7ad80bd67a7648ed80da9 /generic/tclEnv.c | |
| parent | f19dc488c7222a8e782fd227736f0d440c806bc4 (diff) | |
| parent | 63e3c5ca66470ba1f461055790abad3131092b0a (diff) | |
| download | tcl-019db2eeac52e67aea6dfa380fb13f84f06889ca.zip tcl-019db2eeac52e67aea6dfa380fb13f84f06889ca.tar.gz tcl-019db2eeac52e67aea6dfa380fb13f84f06889ca.tar.bz2 | |
merged
Diffstat (limited to 'generic/tclEnv.c')
| -rw-r--r-- | generic/tclEnv.c | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/generic/tclEnv.c b/generic/tclEnv.c index 980a785..72d6fba 100644 --- a/generic/tclEnv.c +++ b/generic/tclEnv.c @@ -45,11 +45,8 @@ MODULE_SCOPE void TclSetEnv(const char *name, const char *value); MODULE_SCOPE void TclUnsetEnv(const char *name); #if defined(__CYGWIN__) -/* On Cygwin, the environment is imported from the Cygwin DLL. */ - DLLIMPORT extern int cygwin_posix_to_win32_path_list_buf_size(char *value); - DLLIMPORT extern void cygwin_posix_to_win32_path_list(char *buf, char *value); -# define putenv TclCygwinPutenv -static void TclCygwinPutenv(char *string); + static void TclCygwinPutenv(char *string); +# define putenv TclCygwinPutenv #endif /* @@ -754,15 +751,11 @@ TclCygwinPutenv( */ if (strcmp(name, "Path") == 0) { -#ifdef __WIN32__ SetEnvironmentVariableA("PATH", NULL); -#endif unsetenv("PATH"); } -#ifdef __WIN32__ SetEnvironmentVariableA(name, value); -#endif } else { char *buf; @@ -770,9 +763,7 @@ TclCygwinPutenv( * Eliminate any Path variable, to prevent any confusion. */ -#ifdef __WIN32__ SetEnvironmentVariableA("Path", NULL); -#endif unsetenv("Path"); if (value == NULL) { @@ -785,9 +776,7 @@ TclCygwinPutenv( cygwin_posix_to_win32_path_list(value, buf); } -#ifdef __WIN32__ SetEnvironmentVariableA(name, buf); -#endif } } #endif /* __CYGWIN__ */ |