From: Larry Wall <larry@netlabs.com>
Date: Fri, 10 Dec 1993 00:00:00 +0000 (+0000)
Subject: perl5a5:pat/env.pat
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f511e57ff4db0bbf2d653a58c8f5a33e79431894;p=p5sagit%2Fp5-mst-13.2.git

perl5a5:pat/env.pat

[random patch found in the perl-5alpha5 tarball applied separately]
---

diff --git a/perl.c b/perl.c
index e2b4821..342714f 100644
--- a/perl.c
+++ b/perl.c
@@ -1303,7 +1303,6 @@ register char **env;
 	SvMULTI_on(envgv);
 	hv = GvHVn(envgv);
 	hv_clear(hv);
-	hv_magic(hv, envgv, 'E');
 	if (env != environ)
 	    environ[0] = Nullch;
 	for (; *env; env++) {
@@ -1314,6 +1313,7 @@ register char **env;
 	    (void)hv_store(hv, *env, s - *env, sv, 0);
 	    *s = '=';
 	}
+	hv_magic(hv, envgv, 'E');
     }
     tainted = 0;
     if (tmpgv = gv_fetchpv("$",TRUE))