gv.c: Don’t repeat GvSVn

GvSVn checks whether there is a scalar present and creates one if there
is not.  So doing GvSVn twice in a row results in a redundant check.

It has been this way since c69033f2.

1 files changed, 1 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index 8bf975eebb..6c1e73eb8c 100644
--- a/gv.c
+++ b/gv.c
@@ -1977,7 +1977,7 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
 
 	case '\014':	/* $^L */
 	    sv_setpvs(GvSVn(gv),"\f");
-	    PL_formfeed = GvSVn(gv);
+	    PL_formfeed = GvSV(gv);
 	    break;
 	case ';':		/* $; */
 	    sv_setpvs(GvSVn(gv),"\034");