diff options
author | Chip Salzenberg <chip@pobox.com> | 2011-08-14 07:57:06 -0700 |
---|---|---|
committer | Chip Salzenberg <chip@pobox.com> | 2011-12-26 15:16:03 -0800 |
commit | fd3c25b2de14d69947e2778960d0f68a799d832c (patch) | |
tree | c26ee71e7584d6e39e2689dbb106adf337a7cbdc /pp.c | |
parent | da1dff9483c6c62608e52ee5f466381813d929ff (diff) | |
download | perl-chip/magicflags3.tar.gz |
Fix SV flags for magic values, v2chip/magicflags3
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1056,7 +1056,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)); |