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 /pp.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 'pp.c')
| -rw-r--r-- | pp.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -830,7 +830,7 @@ PP(pp_undef) PP(pp_predec) { dSP; - if (SvTYPE(TOPs) == SVt_PVGV || SvTYPE(TOPs) > SVt_PVLV) + if (SvTYPE(TOPs) >= SVt_PVGV && ! SvTYPE(TOPs) == SVt_PVLV) DIE(aTHX_ PL_no_modify); if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) && SvIVX(TOPs) != IV_MIN) @@ -847,7 +847,7 @@ PP(pp_predec) PP(pp_postinc) { dSP; dTARGET; - if (SvTYPE(TOPs) == SVt_PVGV || SvTYPE(TOPs) > SVt_PVLV) + if (SvTYPE(TOPs) >= SVt_PVGV && ! SvTYPE(TOPs) == SVt_PVLV) DIE(aTHX_ PL_no_modify); sv_setsv(TARG, TOPs); if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) @@ -869,7 +869,7 @@ PP(pp_postinc) PP(pp_postdec) { dSP; dTARGET; - if (SvTYPE(TOPs) == SVt_PVGV || SvTYPE(TOPs) > SVt_PVLV) + if (SvTYPE(TOPs) >= SVt_PVGV && ! SvTYPE(TOPs) == SVt_PVLV) DIE(aTHX_ PL_no_modify); sv_setsv(TARG, TOPs); if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) |