diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-22 11:20:35 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-22 11:47:57 +0200 |
commit | 678ae90b5bfdcb408a7a5c2767d230d736624a6c (patch) | |
tree | dc6782e9ebf59c86c12095de348cae83397e5ed4 /toke.c | |
parent | 16f708c9bc0dc48713b200031295a40bed83bbfc (diff) | |
download | perl-678ae90b5bfdcb408a7a5c2767d230d736624a6c.tar.gz |
Remove !!! and ??? operators
Those were adding non backwards compatible syntax, unlike "...",
as pointed out in bug #67646.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -4805,10 +4805,6 @@ Perl_yylex(pTHX) pl_yylval.ival = 0; OPERATOR(ASSIGNOP); case '!': - if (PL_expect == XSTATE && s[1] == '!' && s[2] == '!') { - s += 3; - LOP(OP_DIE,XTERM); - } s++; { const char tmp = *s++; @@ -5060,10 +5056,6 @@ Perl_yylex(pTHX) AOPERATOR(DORDOR); } case '?': /* may either be conditional or pattern */ - if (PL_expect == XSTATE && s[1] == '?' && s[2] == '?') { - s += 3; - LOP(OP_WARN,XTERM); - } if (PL_expect == XOPERATOR) { char tmp = *s++; if(tmp == '?') { |