summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorChip Salzenberg <chip@pobox.com>2011-08-14 07:57:06 -0700
committerChip Salzenberg <chip@pobox.com>2011-12-26 15:16:03 -0800
commitfd3c25b2de14d69947e2778960d0f68a799d832c (patch)
treec26ee71e7584d6e39e2689dbb106adf337a7cbdc /pp.c
parentda1dff9483c6c62608e52ee5f466381813d929ff (diff)
downloadperl-chip/magicflags3.tar.gz
Fix SV flags for magic values, v2chip/magicflags3
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 44fe916f64..8b9b4ce232 100644
--- a/pp.c
+++ b/pp.c
@@ -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));