From: Steve Grazzini <grazz@pobox.com>
Date: Mon, 4 Aug 2003 16:01:45 +0000 (-0400)
Subject: Re: [perl #23210] parser error with 'print $HANDLE func(@args)'
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8a8635f01e16b518b296d1f0397d3020c7e9c138;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #23210] parser error with 'print $HANDLE func(@args)'
Message-ID: <20030804200145.GB21699@grazzini.net>

Prevent the warning "Bareword found where operator expected" in
the case "print $fh foo()" where foo() is an undefined function.

p4raw-id: //depot/perl@20480
---

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