summaryrefslogtreecommitdiff
path: root/pp.h
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2011-01-02 15:04:50 +0000
committerDavid Mitchell <davem@iabyn.com>2011-01-02 20:00:27 +0000
commitbff33ce02f3be5fbb5af2c3c92e9853aaa12151e (patch)
tree1746f4f97dc78dea718bd943734b6bb019695c68 /pp.h
parentd1bea3d84afd8d32a236c8d800e5dfc0f837570e (diff)
downloadperl-bff33ce02f3be5fbb5af2c3c92e9853aaa12151e.tar.gz
overloaded <> sometimes left an extra stack arg
Diffstat (limited to 'pp.h')
-rw-r--r--pp.h2
1 files changed, 2 insertions, 0 deletions
diff --git a/pp.h b/pp.h
index debdd2d3e9..5ba9ae2109 100644
--- a/pp.h
+++ b/pp.h
@@ -446,6 +446,8 @@ Does not use C<TARG>. See also C<XPUSHu>, C<mPUSHu> and C<PUSHu>.
SPAGAIN; \
sp += shift; \
sv_setsv(TARG, tmpsv); \
+ if (opASSIGN) \
+ sp--; \
SETTARG; \
RETURN; \
} \