diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-16 00:10:52 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-16 00:10:52 +0000 |
| commit | 87671ffc0b0ccacb922794ca8606103dc9023688 (patch) | |
| tree | ae0740b03eaf359ba02ea4406685106eed5e64fd /op.c | |
| parent | 3d93dc8b63d7edad21db9be58a13ec9ba6004930 (diff) | |
| download | perl-87671ffc0b0ccacb922794ca8606103dc9023688.tar.gz | |
stray tweak
p4raw-id: //depot/perl@1976
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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) { |