manual integrate of change#16332 from maint-5.6 branch

p4raw-link: @16332 on //depot/maint-5.6/perl: 9bf7742e23b67e3d7c671615795c570c51951513

p4raw-id: //depot/perl@16348

1 files changed, 7 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 0350bae010..9ba91e6728 100644
--- a/sv.c
+++ b/sv.c
@@ -6594,8 +6594,14 @@ Perl_sv_reset(pTHX_ register char *s, HV *stash)
 		if (GvHV(gv) && !HvNAME(GvHV(gv))) {
 		    hv_clear(GvHV(gv));
 #ifdef USE_ENVIRON_ARRAY
-		    if (gv == PL_envgv)
+		    if (gv == PL_envgv
+#  ifdef USE_ITHREADS
+			&& PL_curinterp == aTHX
+#  endif
+		    )
+		    {
 			environ[0] = Nullch;
+		    }
 #endif
 		}
 	    }