From 8488dcb806f8aaa3009691bcd43f0ac7c787c1ad Mon Sep 17 00:00:00 2001
From: Sven Wischnowsky <wischnow@users.sourceforge.net>
Date: Tue, 4 Apr 2000 12:02:04 +0000
Subject: keep association elements from being exported

---
 Src/builtin.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Src/builtin.c')

diff --git a/Src/builtin.c b/Src/builtin.c
index dd0d3e523..73d89aa4f 100644
--- a/Src/builtin.c
+++ b/Src/builtin.c
@@ -1630,7 +1630,8 @@ typeset_single(char *cname, char *pname, Param pm, int func,
 		if (!(pm->flags & PM_UNSET) && !pm->env && !value)
 		    pm->env = addenv(pname, getsparam(pname), pm->flags);
 	    } else if (pm->env &&
-		       (!pm->level || (isset(ALLEXPORT) && !pm->old))) {
+		       (!pm->level || (isset(ALLEXPORT) && !pm->old &&
+				       !(pm->flags & PM_HASHELEM)))) {
 		delenv(pm->env);
 		zsfree(pm->env);
 		pm->env = NULL;
-- 
cgit 1.4.1