summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog2
-rw-r--r--tests/env.test3
2 files changed, 5 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index ab40da6..74aa3a4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,8 @@
* generic/tcl.h: Fix gcc warnings (discovered with
* generic/tclIORChan.c: latest mingw, based on gcc 4.6.1)
+ * tests/env.test: Fix env.test, when running
+ under wine 1.3
2011-10-06 Donal K. Fellows <dkf@users.sf.net>
diff --git a/tests/env.test b/tests/env.test
index 9c417d9..9010f52 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -89,6 +89,7 @@ set printenvScript [makeFile {
SHLIB_PATH SYSTEMDRIVE SYSTEMROOT DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH
DYLD_NEW_LOCAL_SHARED_REGIONS DYLD_NO_FIX_PREBINDING
__CF_USER_TEXT_ENCODING SECURITYSESSIONID LANG WINDIR TERM
+ CommonProgramFiles ProgramFiles
} {
lrem names $name
}
@@ -97,6 +98,7 @@ set printenvScript [makeFile {
}
exit
} printenv]
+
# [exec] is required here to see the actual environment received by child
# processes.
proc getenv {} {
@@ -119,6 +121,7 @@ foreach name [array names env] {
SYSTEMDRIVE SYSTEMROOT DYLD_LIBRARY_PATH DYLD_FRAMEWORK_PATH
DYLD_NEW_LOCAL_SHARED_REGIONS DYLD_NO_FIX_PREBINDING
SECURITYSESSIONID LANG WINDIR TERM
+ CommonProgramFiles ProgramFiles
}} {
unset env($name)
}