perl5a5:pat/env.pat

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

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index e2b4821bf0..342714fd02 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))