From e8584c676c588ee90ac28be9b163a1b99a41f8b3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 9 Aug 2001 17:11:08 +0000
Subject: new check: never use ``length @l'', it returns the length of the
 string int(@l)

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

diff --git a/perl_checker b/perl_checker
index 7dca3ba..d1cd082 100755
--- a/perl_checker
+++ b/perl_checker
@@ -55,6 +55,10 @@ s{([!=]~|\bif\b)\s*/.*?/}{}g;
 
 s/#.*//;
 
+if (/\blength(\s*|\()\@/) {
+    err(q(never use ``length @l'', it returns the length of the string int(@l)), info());
+}
+
 if (/\blocal\b.*\|\|=/) {
     err(q(never use ``local $var ||= <val>'', write ``local $var = $var || <val>''), info());
 }
-- 
cgit v1.2.1