From 6bb6781ab7f02fc1f87f3650fde209d9a792469b Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 13 Jan 2012 22:19:23 -0800
Subject: [PATCH] =?utf8?q?pp=5Fsys.c:pp=5Ffttext:=20Don=E2=80=99t=20extend?=
 =?utf8?q?=20the=20stack=20after=20popping?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 pp_sys.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pp_sys.c b/pp_sys.c
index 1ee14d7..a3b7c51 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3306,13 +3306,15 @@ PP(pp_fttext)
     STACKED_FTEST_CHECK;
 
     if (PL_op->op_flags & OPf_REF)
+    {
 	gv = cGVOP_gv;
+	EXTEND(SP, 1);
+    }
     else if (PL_op->op_private & OPpFT_STACKED)
 	gv = PL_defgv;
     else sv = POPs, gv = MAYBE_DEREF_GV_nomg(sv);
 
     if (gv) {
-	EXTEND(SP, 1);
 	if (gv == PL_defgv) {
 	    if (PL_statgv)
 		io = SvTYPE(PL_statgv) == SVt_PVIO
-- 
2.7.4