pp_sys.c:pp_fttest: Don’t set PL_statname to SvPV(PL_statname)

This is a waste of CPU cycles.

PL_statname is always a PV.

1 files changed, 1 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 1a84e109e7..41cf64dbb6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3323,7 +3323,6 @@ PP(pp_fttext)
 		    ? (IO *)PL_statgv
 		    : GvIO(PL_statgv);
 	    else {
-		sv = PL_statname;
 		goto really_filename;
 	    }
 	}
@@ -3366,10 +3365,10 @@ PP(pp_fttext)
 	}
     }
     else {
+	sv_setpv(PL_statname, SvPV_nomg_const_nolen(sv));
       really_filename:
 	PL_statgv = NULL;
 	PL_laststype = OP_STAT;
-	sv_setpv(PL_statname, SvPV_nomg_const_nolen(sv));
 	if (!(fp = PerlIO_open(SvPVX_const(PL_statname), "r"))) {
 	    if (ckWARN(WARN_NEWLINE) && strchr(SvPV_nolen_const(PL_statname),
 					       '\n'))