diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 18:23:27 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-17 18:23:27 +0000 |
| commit | b76195c2c3fed0c4902274b97cce28883ff67d65 (patch) | |
| tree | d0ab135a82027877baef2737e2c76218d75e1bb3 /sv.c | |
| parent | 4ce457a6488a69b8fafc38a9468220b68d66eddb (diff) | |
| download | perl-b76195c2c3fed0c4902274b97cce28883ff67d65.tar.gz | |
Slight update to #22315 ($lval=*FOO); optimise the hot tests,
and fix some incorrect indentation
p4raw-id: //depot/perl@22316
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -1455,11 +1455,11 @@ Perl_sv_upgrade(pTHX_ register SV *sv, U32 mt) LvTARGLEN(sv) = 0; LvTARG(sv) = 0; LvTYPE(sv) = 0; - GvGP(sv) = 0; - GvNAME(sv) = 0; - GvNAMELEN(sv) = 0; - GvSTASH(sv) = 0; - GvFLAGS(sv) = 0; + GvGP(sv) = 0; + GvNAME(sv) = 0; + GvNAMELEN(sv) = 0; + GvSTASH(sv) = 0; + GvFLAGS(sv) = 0; break; case SVt_PVAV: SvANY(sv) = new_XPVAV(); @@ -3788,8 +3788,9 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags) if (dtype != SVt_PVGV) { char *name = GvNAME(sstr); STRLEN len = GvNAMELEN(sstr); - if (dtype != SVt_PVLV) /* don't upgrade SVt_PVLV: it can hold a glob */ - sv_upgrade(dstr, SVt_PVGV); + /* don't upgrade SVt_PVLV: it can hold a glob */ + if (dtype != SVt_PVLV) + sv_upgrade(dstr, SVt_PVGV); sv_magic(dstr, dstr, PERL_MAGIC_glob, Nullch, 0); GvSTASH(dstr) = (HV*)SvREFCNT_inc(GvSTASH(sstr)); GvNAME(dstr) = savepvn(name, len); |