From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 29 Mar 2012 21:52:45 +0000 (-0700)
Subject: Make -t BAREWORD extend the stack
X-Git-Tag: upstream/5.20.0~6876^2~3
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6ade2d35dc8c339a3e8d6ee685819d2a68e20edd;p=platform%2Fupstream%2Fperl.git

Make -t BAREWORD extend the stack

It appears always to have been this way.  It was writing past the end
of the stack.
---

diff --git a/pp_sys.c b/pp_sys.c
index 9753763..14aa324 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3277,6 +3277,7 @@ PP(pp_fttty)
     tryAMAGICftest_MG('t');
 
     if (PL_op->op_flags & OPf_REF)
+	EXTEND(SP,1),
 	gv = cGVOP_gv;
     else {
       SV *tmpsv = TOPs;