From 3d93dc8b63d7edad21db9be58a13ec9ba6004930 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 15 Oct 1998 23:54:38 +0000 Subject: [PATCH] propagate typeness of lexicals while cloning them p4raw-id: //depot/perl@1975 --- op.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/op.c b/op.c index 0ad5650..98ceb4f 100644 --- a/op.c +++ b/op.c @@ -219,6 +219,12 @@ 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 */ + SvOBJECT_on(namesv); + (void)SvUPGRADE(namesv, SVt_PVMG); + SvSTASH(namesv) = (HV*)SvREFCNT_inc((SV*)SvSTASH(svp[off])); + PL_sv_objcount++; + } if (CvANON(PL_compcv) || SvTYPE(PL_compcv) == SVt_PVFM) { /* "It's closures all the way down." */ CvCLONE_on(PL_compcv); -- 2.7.4