aboutsummaryrefslogtreecommitdiff
path: root/jim-exec.c
diff options
context:
space:
mode:
authorSteve Bennett <steveb@workware.net.au>2014-01-04 09:10:42 +1000
committerSteve Bennett <steveb@workware.net.au>2014-01-15 07:14:58 +1000
commit37cf9b17a7d0920625550fe9f7a7d64904c6d23a (patch)
treeac0fdb773ce99efabbfbee5970a90f23ca6bf035 /jim-exec.c
parent4cc0ca3896cacbce03a545fc39a106cd75fd394d (diff)
downloadjimtcl-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>
Diffstat (limited to 'jim-exec.c')
-rw-r--r--jim-exec.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/jim-exec.c b/jim-exec.c
index 194a3f5..d298891 100644
--- a/jim-exec.c
+++ b/jim-exec.c
@@ -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
}
/*