diff options
| author | Chip Salzenberg <chip@pobox.com> | 2011-08-14 07:57:06 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2011-09-28 12:35:15 -0700 |
| commit | 9e2dfd4eacd4fc62b9d83ad74afb0a68a9f0f562 (patch) | |
| tree | 4a7c0b1a4e49188738b2c72623420beda7e839bc /pp.c | |
| parent | 450a7a1bbac26c29f4d17e66c5c3387e73388838 (diff) | |
| download | perl-chip/magicflags2.tar.gz | |
Fix SV flags for magic values, v2chip/magicflags2
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1061,7 +1061,7 @@ PP(pp_postinc) if (SvROK(TOPs)) TARG = sv_newmortal(); sv_setsv(TARG, TOPs); - if (!SvREADONLY(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) + if (!SvREADONLY(TOPs) && !SvGMAGICAL(TOPs) && SvIOK_notUV(TOPs) && !SvNOK(TOPs) && !SvPOK(TOPs) && SvIVX(TOPs) != (inc ? IV_MAX : IV_MIN)) { SvIV_set(TOPs, SvIVX(TOPs) + (inc ? 1 : -1)); |