In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/f5727a1c71878a34f6255eb1a506c0b21af7d36f?hp=5a9c3bf448373ee0812df85d750f6234ee11c9c4>
- Log ----------------------------------------------------------------- commit f5727a1c71878a34f6255eb1a506c0b21af7d36f Author: Lukas Mai <[email protected]> Date: Thu Nov 2 19:48:38 2017 +0000 yada-yada is a term, not an operator ----------------------------------------------------------------------- Summary of changes: t/op/yadayada.t | 18 +++++++++++++++++- toke.c | 2 +- 2 files changed, 18 insertions(+), 2 deletions(-) diff --git a/t/op/yadayada.t b/t/op/yadayada.t index 861389f4c5..a39b01594c 100644 --- a/t/op/yadayada.t +++ b/t/op/yadayada.t @@ -8,7 +8,7 @@ BEGIN { use strict; -plan 9; +plan 12; my $err; my $err1 = "Unimplemented at $0 line "; @@ -42,6 +42,22 @@ eval { @transformed = map {;... } @input; }; is $@, $err, "Disambiguation case 4"; $@ = ''; +note("RT #132150: ... is a term, not an operator"); +$err = $err1 . ( __LINE__ + 1 ) . $err2; +eval { ... + 0 }; +is $@, $err, "... + 0 parses"; +$@ = ''; + +$err = $err1 . ( __LINE__ + 1 ) . $err2; +eval { ... % 1 }; +is $@, $err, "... % 1 parses"; +$@ = ''; + +$err = $err1 . ( __LINE__ + 1 ) . $err2; +eval { ... / 1 }; +is $@, $err, "... / 1 parses"; +$@ = ''; + # # Regression tests, making sure ... is still parsable as an operator. # diff --git a/toke.c b/toke.c index bbfb6fb717..afcd719302 100644 --- a/toke.c +++ b/toke.c @@ -6853,7 +6853,7 @@ Perl_yylex(pTHX) } if (PL_expect == XSTATE && s[1] == '.' && s[2] == '.') { s += 3; - OPERATOR(YADAYADA); + TERM(YADAYADA); } if (PL_expect == XOPERATOR || !isDIGIT(s[1])) { char tmp = *s++; -- Perl5 Master Repository
