integrate cfgperl changes#6207..6210 into mainline

p4raw-link: @6210 on //depot/cfgperl: b8b4c9f3cf6ef09c878a80ff97526a69902a44ca
p4raw-link: @6207 on //depot/cfgperl: b37a7757477319a5fcdd5131db15046064f631c4

p4raw-id: //depot/perl@6345

1 files changed, 4 insertions, 0 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 9af9e8262c..94007601ed 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -891,6 +891,10 @@ PP(pp_sort)
 		    PL_secondgv = gv_fetchpv("b", TRUE, SVt_PV);
 		    PL_sortstash = stash;
 		}
+#ifdef USE_THREADS
+		Perl_lock(aTHX_ (SV *)PL_firstgv);
+		Perl_lock(aTHX_ (SV *)PL_secondgv);
+#endif
 		SAVESPTR(GvSV(PL_firstgv));
 		SAVESPTR(GvSV(PL_secondgv));
 	    }