In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/79b5479cf7fecd516713f60c0e3f566a46cc79c0?hp=e34b9a6d55f57f644ad01756d834ceca461e9388>
- Log ----------------------------------------------------------------- commit 79b5479cf7fecd516713f60c0e3f566a46cc79c0 Author: Father Chrysostomos <[email protected]> Date: Fri Dec 5 17:55:17 2014 -0800 Revert "toke.c: Remove redundant PL_expect check" This reverts commit 8b4c5ad11955dc809ba3b7d6672b3a13ea54e770. It caused bug #123372. M toke.c commit a9d49ba7e0fca8cf5ad94d780b8b0603ab350904 Author: Father Chrysostomos <[email protected]> Date: Fri Dec 5 17:55:08 2014 -0800 Test bug #123372 M t/base/lex.t ----------------------------------------------------------------------- Summary of changes: t/base/lex.t | 12 +++++++++++- toke.c | 2 +- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/t/base/lex.t b/t/base/lex.t index dc81e9d..e537805 100644 --- a/t/base/lex.t +++ b/t/base/lex.t @@ -1,6 +1,6 @@ #!./perl -print "1..101\n"; +print "1..102\n"; $x = 'x'; @@ -387,6 +387,16 @@ print "ok $test - call a function in package v10::foo\n"; $test++; print "not " unless (1?v65:"bar") eq 'A'; print "ok $test - colon detection after vstring does not break ? vstring :\n"; $test++; +if (ord("\t") == 9) { + print v35; + print "not "; + print v10; + print "ok $test - print vstring prints the vstring\n"; +} +else { + print "ok $test # skipped on EBCDIC\n"; +} +$test++; # Test pyoq ops with comments before the first delim q # comment diff --git a/toke.c b/toke.c index 9c33d09..065d964 100644 --- a/toke.c +++ b/toke.c @@ -6255,7 +6255,7 @@ Perl_yylex(pTHX) } /* avoid v123abc() or $h{v1}, allow C<print v10;> */ if (!isALPHA(*start) && (PL_expect == XTERM - || PL_expect == XSTATE + || PL_expect == XREF || PL_expect == XSTATE || PL_expect == XTERMORDORDOR)) { GV *const gv = gv_fetchpvn_flags(s, start - s, UTF ? SVf_UTF8 : 0, SVt_PVCV); -- Perl5 Master Repository
