* win/tclWinPipe.c (TclpCreateProcess): Call cygwin-specific routine to set up

windows environment.

diff --git a/tcl/ChangeLog b/tcl/ChangeLog
index 8846d9b..02f64e1 100644 (file)
--- a/tcl/ChangeLog
+++ b/tcl/ChangeLog
@@ -1,3 +1,8 @@
+2006-11-30  Christopher Faylor  <cgf@timesys.com>
+
+       * win/tclWinPipe.c (TclpCreateProcess): Call cygwin-specific routine to
+       set up windows environment.
+
 2006-07-13  Steve Ellcey  <sje@cup.hp.com>
 
        * configure.in: Fix for autoconf 2.5.

diff --git a/tcl/win/tclWinPipe.c b/tcl/win/tclWinPipe.c
index bad7c6f..d8d69dc 100644 (file)
--- a/tcl/win/tclWinPipe.c
+++ b/tcl/win/tclWinPipe.c
@@ -17,6 +17,9 @@
 #include <fcntl.h>
 #include <io.h>
 #include <sys/stat.h>
+#ifdef __CYGWIN__
+#include <sys/cygwin.h>
+#endif
 
 /*
  * The following variable is used to tell whether this module has been
@@ -1225,6 +1228,10 @@ TclpCreateProcess(
 
     BuildCommandLine(execPath, argc, argv, &cmdLine);
 
+#ifdef __CYGWIN__
+    cygwin_internal (CW_SYNC_WINENV);
+#endif
+
     if ((*tclWinProcs->createProcessProc)(NULL, 
            (TCHAR *) Tcl_DStringValue(&cmdLine), NULL, NULL, TRUE, 
            (DWORD) createFlags, NULL, NULL, &startInfo, &procInfo) == 0) {