From eddfce0641e5c1ca09cbb79143d10795b2faf08d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 31 Jul 2001 22:50:04 +0000
Subject: error on "local $var ||="

---
 perl_checker | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'perl_checker')

diff --git a/perl_checker b/perl_checker
index de35337..6d90f80 100755
--- a/perl_checker
+++ b/perl_checker
@@ -2,9 +2,11 @@
 
 BEGIN {
     while ($ARGV[0] =~ /-I(.*)/) {
-	unshift @INC, $1;
+	push @I, $1;
 	shift;
     }
+    unshift @INC, @I;
+
     $NO_CW = $ARGV[0] eq "-no_cw" and shift;
     $USES = $ARGV[0] eq "-uses" and shift;
 
@@ -20,7 +22,7 @@ BEGIN {
 
     if (!$NO_CW) {
 	foreach (@ARGV) {
-	    system("perl", "-cw", $_);
+	    system("perl", (map {; "-I", $_ } @I), "-cw", $_);
 	    $? == 0 or die "perl -cw $_ failed\n";
 	}
     }
@@ -53,6 +55,10 @@ s{([!=]~|\bif\b)\s*/.*?/}{}g;
 
 s/#.*//;
 
+if (/\blocal\b.*\|\|=/) {
+    err(q(never use ``local $var ||= <val>'', write ``local $var = $var || <val>''), info());
+}
+
 if (/^\s*package ([\w:]+)/) {
     $package = $1;
     $path{$package} ||= ($ARGV =~ m|(.*/)|)[0];
-- 
cgit v1.2.1