From d9fcecf3ec79c33544662517e4135e1afa10f6af Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Oct 2001 10:37:51 +0000
Subject: detect "cond ? $v1 = XX1 : $v2 = XX2" error

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

diff --git a/perl_checker b/perl_checker
index 12cf3a2..1785269 100755
--- a/perl_checker
+++ b/perl_checker
@@ -70,6 +70,9 @@ if (/\bsub\b\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*\$\w+\s*=/) {
+    err(q(do not use ``cond ? $v1 = XX1 : $v2 = XX2'' which is parted as ``(cond ? $v1 = XX1 : $v2) = XX2''), info());
+}
 
 if (/^\s*package ([\w:]+)/) {
     $package = $1;
-- 
cgit v1.2.1