stray tweak

p4raw-id: //depot/perl@1976

diff --git a/op.c b/op.c
index 98ceb4f..635f4cd 100644 (file)
--- a/op.c
+++ b/op.c
@@ -219,10 +219,10 @@ pad_findlex(char *name, PADOFFSET newoff, U32 seq, CV* startcv, I32 cx_ix, I32 s
                    SvNVX(namesv) = (double)PL_curcop->cop_seq;
                    SvIVX(namesv) = PAD_MAX;    /* A ref, intro immediately */
                    SvFAKE_on(namesv);          /* A ref, not a real var */
-                   if (SvOBJECT(svp[off])) {   /* A typed var */
+                   if (SvOBJECT(sv)) {         /* A typed var */
                        SvOBJECT_on(namesv);
                        (void)SvUPGRADE(namesv, SVt_PVMG);
-                       SvSTASH(namesv) = (HV*)SvREFCNT_inc((SV*)SvSTASH(svp[off]));
+                       SvSTASH(namesv) = (HV*)SvREFCNT_inc((SV*)SvSTASH(sv));
                        PL_sv_objcount++;
                    }
                    if (CvANON(PL_compcv) || SvTYPE(PL_compcv) == SVt_PVFM) {