avoid stash pointers in optree under USE_ITHREADS

p4raw-id: //depot/perl@4546

1 files changed, 2 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index c04d7b2be2..1fb26c3a6c 100644
--- a/pp.c
+++ b/pp.c
@@ -254,7 +254,7 @@ PP(pp_rv2gv)
 			    }
 			}
 		    }
-		    gv_init(gv, PL_curcop->cop_stash, name, len, 0);
+		    gv_init(gv, CopSTASH(PL_curcop), name, len, 0);
 		    sv_upgrade(sv, SVt_RV);
 		    SvRV(sv) = (SV *) gv;
 		    SvROK_on(sv);
@@ -581,7 +581,7 @@ PP(pp_bless)
     HV *stash;
 
     if (MAXARG == 1)
-	stash = PL_curcop->cop_stash;
+	stash = CopSTASH(PL_curcop);
     else {
 	SV *ssv = POPs;
 	STRLEN len;