summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>2005-11-05 05:54:00 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-11-05 10:10:09 +0000
commitb59aed6733cbdee6d898449f638bd7a17e772993 (patch)
tree3d79c82df1f02445212eb9d4c3b748081c667794 /pp.c
parent2bd49cfcbebe5157c802aba335cb6f76b1afa6fd (diff)
downloadperl-b59aed6733cbdee6d898449f638bd7a17e772993.tar.gz
Re: A surprising segfault
Message-Id: <20051105135053.27D7.BQW10602@nifty.com> p4raw-id: //depot/perl@26011
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp.c b/pp.c
index eb217d0603..63bc8ed091 100644
--- a/pp.c
+++ b/pp.c
@@ -700,7 +700,7 @@ PP(pp_chop)
while (MARK < SP)
do_chop(TARG, *++MARK);
SP = ORIGMARK;
- PUSHTARG;
+ XPUSHTARG;
RETURN;
}
@@ -718,7 +718,7 @@ PP(pp_chomp)
while (SP > MARK)
count += do_chomp(POPs);
- PUSHi(count);
+ XPUSHi(count);
RETURN;
}