From 4499f35941cb48fd630c2b9b0a8a5832fdd81cde Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 23 Jul 2002 12:00:01 +0000
Subject: catch misuse of =~ when = was meant

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

diff --git a/perl_checker b/perl_checker
index dd8c21b..9401956 100755
--- a/perl_checker
+++ b/perl_checker
@@ -55,6 +55,9 @@ if (/\$_\s*=~/) {
 if (/\$_\s*!~/) {
     warn_(q(``$_ !~ /regexp/'' can be written ``!/regexp/''), info());
 }
+if (/my \$\w+\s*=~/ || /my \(\$\w+\)\s*=~/) {
+    err(q(applying =~ on a new initialized variable is wrong), info());
+}
 if (/[}>]{(['"])([a-z][a-z0-9_]*)\1}/i) {
     warn_(qq(``{$1$2$1}'' can be written ``{$2}''), info())
       if $2 ne 'x' && $2 ne 'y'; 
-- 
cgit v1.2.1