summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-07-22 11:20:35 +0200
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-07-22 11:47:57 +0200
commit678ae90b5bfdcb408a7a5c2767d230d736624a6c (patch)
treedc6782e9ebf59c86c12095de348cae83397e5ed4 /toke.c
parent16f708c9bc0dc48713b200031295a40bed83bbfc (diff)
downloadperl-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.c8
1 files changed, 0 insertions, 8 deletions
diff --git a/toke.c b/toke.c
index a15dca6174..885027ee79 100644
--- a/toke.c
+++ b/toke.c
@@ -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 == '?') {