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_hot.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_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -295,7 +295,7 @@ PP(pp_eq) PP(pp_preinc) { 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_MAX) |