diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-12-03 16:37:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-03 17:22:08 +0000 |
| commit | 3510b4a1c70ec95b37a6a1ef86c5555610f0dc75 (patch) | |
| tree | 97cf7f0e7587e069f777ededc38b1e6862d47850 /pp_hot.c | |
| parent | 7cae2445f8ea3c3758a465c9737cde17e55be1a6 (diff) | |
| download | perl-3510b4a1c70ec95b37a6a1ef86c5555610f0dc75.tar.gz | |
shared hash keys and ++/--
Message-ID: <20011203163716.C21702@plum.flirble.org>
p4raw-id: //depot/perl@13442
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -302,10 +302,10 @@ PP(pp_eq) PP(pp_preinc) { dSP; - if (SvREADONLY(TOPs) || SvTYPE(TOPs) > SVt_PVLV) + if (SvTYPE(TOPs) > SVt_PVLV) DIE(aTHX_ PL_no_modify); - if (SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) && - SvIVX(TOPs) != IV_MAX) + if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) + && SvIVX(TOPs) != IV_MAX) { ++SvIVX(TOPs); SvFLAGS(TOPs) &= ~(SVp_NOK|SVp_POK); |