From 20bfec8ac87454cb13f370fbf3c9b7a9c942199a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 May 2003 11:20:35 +0000
Subject: explicitly disallow <<=, >>= and **= (instead of having a syntax
 error)

---
 perl_checker.src/lexer.mll | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl_checker.src/lexer.mll b/perl_checker.src/lexer.mll
index e43aa9f..0153374 100644
--- a/perl_checker.src/lexer.mll
+++ b/perl_checker.src/lexer.mll
@@ -417,6 +417,11 @@ rule token = parse
 
 | "=" | "+=" | "-=" | "*=" | ".=" | "|=" | "&=" | "^=" | "||=" | "&&=" { ASSIGN(lexeme lexbuf, pos lexbuf) }
 
+| "<<=" | ">>=" | "**=" { 
+    warn lexbuf (Printf.sprintf "don't use \"%s\", use the expanded version instead" (lexeme lexbuf)) ;
+    ASSIGN(lexeme lexbuf, pos lexbuf) 
+  }
+
 | "," { COMMA(pos lexbuf) }
 | "=>" { RIGHT_ARROW(pos lexbuf) }
 | "not" { NOT(pos lexbuf) }
-- 
cgit v1.2.1