stat $ioref should record the handle for -T _

stat $gv records the handle so that -T _ can use it.  But stat $ioref
hasn’t been doing that, until this commit.

PL_statgv can now hold an SVt_PVIO instead of a SVt_PVGV.

1 files changed, 5 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 430aa7cce0..1ee14d7eb5 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2803,6 +2803,8 @@ PP(pp_stat)
             if (PL_op->op_type == OP_LSTAT)
                 goto do_fstat_warning_check;
 	    PL_laststype = OP_STAT;
+	    PL_statgv = (GV *)io;
+	    sv_setpvs(PL_statname, "");
             goto do_fstat_have_io; 
         }
         
@@ -3313,7 +3315,9 @@ PP(pp_fttext)
 	EXTEND(SP, 1);
 	if (gv == PL_defgv) {
 	    if (PL_statgv)
-		io = GvIO(PL_statgv);
+		io = SvTYPE(PL_statgv) == SVt_PVIO
+		    ? (IO *)PL_statgv
+		    : GvIO(PL_statgv);
 	    else {
 		sv = PL_statname;
 		goto really_filename;