In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8b4c5ad11955dc809ba3b7d6672b3a13ea54e770?hp=cdfcfc0b6c787e44466e6a226452244d720a1f4f>
- Log ----------------------------------------------------------------- commit 8b4c5ad11955dc809ba3b7d6672b3a13ea54e770 Author: Father Chrysostomos <[email protected]> Date: Sat Sep 13 12:13:29 2014 -0700 toke.c: Remove redundant PL_expect check PL_expect is only ever XREF when we already know there is an open brace. So we would never even get to this code path. ----------------------------------------------------------------------- Summary of changes: toke.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/toke.c b/toke.c index 028c685..edd458d 100644 --- a/toke.c +++ b/toke.c @@ -6215,7 +6215,7 @@ Perl_yylex(pTHX) } /* avoid v123abc() or $h{v1}, allow C<print v10;> */ if (!isALPHA(*start) && (PL_expect == XTERM - || PL_expect == XREF || PL_expect == XSTATE + || PL_expect == XSTATE || PL_expect == XTERMORDORDOR)) { GV *const gv = gv_fetchpvn_flags(s, start - s, UTF ? SVf_UTF8 : 0, SVt_PVCV); -- Perl5 Master Repository
