From ba8182f85e239b53e3089116cd5a3d262a629667 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 12 Jan 2012 13:24:26 -0800
Subject: [perl #77388] Make stacked -T and -B work

They just need to pick up the _ filehandle in stacked mode, like the
other ops (which actually rely on my_stat[_flags] to do it).  This
apparently was forgotten when stacked filetests were added.
---
 pp_sys.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'pp_sys.c')

diff --git a/pp_sys.c b/pp_sys.c
index ed47ff014c..0131a2e86b 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3309,6 +3309,8 @@ PP(pp_fttext)
 
     if (PL_op->op_flags & OPf_REF)
 	gv = cGVOP_gv;
+    else if (PL_op->op_private & OPpFT_STACKED)
+	gv = PL_defgv;
     else sv = POPs, gv = MAYBE_DEREF_GV_nomg(sv);
 
     if (gv) {
-- 
cgit v1.2.1