From 39bed9aba4ff78ff5f9f98704beaa261c1c7507c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 25 Aug 2001 11:22:06 +0000
Subject: add checking for << and >> operators priority use

---
 perl_checker | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl_checker')

diff --git a/perl_checker b/perl_checker
index fe94764..12cf3a2 100755
--- a/perl_checker
+++ b/perl_checker
@@ -67,6 +67,10 @@ if (/\bsub\b\s*\{[^{}]*\$_(?!\[)/) {
     warn_(q(using $_ in a sub is generally bad news), info()) if !/local\s+\$_/;
 }
 
+if ((my ($op) = /([<>]{2})/) && (/[+-]\s*[\w\$]+\s*[<>]{2}/ || /[<>]{2}\s*[\w\$]+\s*[+-]/) && !/\<\<[A-Z]/) { # don't warn for here-document alike
+    err(qq(parentheses needed around operator $op), info());
+}
+
 if (/^\s*package ([\w:]+)/) {
     $package = $1;
     $path{$package} ||= ($ARGV =~ m|(.*/)|)[0];
-- 
cgit v1.2.1