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");