X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/33f3c7b8444b48791ad016570a41a23483d750d2..8a8635f01e16b518b296d1f0397d3020c7e9c138:/toke.c

diff --git a/toke.c b/toke.c
index 9d1fed2..adc7d26 100644
--- a/toke.c
+++ b/toke.c
@@ -3559,9 +3559,7 @@ Perl_yylex(pTHX)
 		    }
 		}
 		else {
-		    GV *gv = gv_fetchpv(tmpbuf, FALSE, SVt_PVCV);
-		    if (gv && GvCVu(gv))
-			PL_expect = XTERM;	/* e.g. print $fh subr() */
+		    PL_expect = XTERM;		/* e.g. print $fh subr() */
 		}
 	    }
 	    else if (isDIGIT(*s))