diff options
author | Steve Bennett <steveb@workware.net.au> | 2014-01-04 09:10:42 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2014-01-15 07:14:58 +1000 |
commit | 37cf9b17a7d0920625550fe9f7a7d64904c6d23a (patch) | |
tree | ac0fdb773ce99efabbfbee5970a90f23ca6bf035 | |
parent | 4cc0ca3896cacbce03a545fc39a106cd75fd394d (diff) | |
download | jimtcl-37cf9b17a7d0920625550fe9f7a7d64904c6d23a.zip jimtcl-37cf9b17a7d0920625550fe9f7a7d64904c6d23a.tar.gz jimtcl-37cf9b17a7d0920625550fe9f7a7d64904c6d23a.tar.bz2 |
exec: respect $::env even without tclcompat
Otherwise there is no way to affect the environment for exec
Signed-off-by: Steve Bennett <steveb@workware.net.au>
-rw-r--r-- | jim-exec.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -231,7 +231,6 @@ static void JimTrimTrailingNewline(Jim_Interp *interp) */ static char **JimBuildEnv(Jim_Interp *interp) { -#if defined(jim_ext_tclcompat) int i; int size; int num; @@ -283,9 +282,6 @@ static char **JimBuildEnv(Jim_Interp *interp) *envdata = 0; return envptr; -#else - return Jim_GetEnviron(); -#endif } /** @@ -295,11 +291,9 @@ static char **JimBuildEnv(Jim_Interp *interp) */ static void JimFreeEnv(char **env, char **original_environ) { -#ifdef jim_ext_tclcompat if (env != original_environ) { Jim_Free(env); } -#endif } /* |