diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-25 11:22:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-25 11:22:06 +0000 |
| commit | 39bed9aba4ff78ff5f9f98704beaa261c1c7507c (patch) | |
| tree | c4fce4d71a17deb040d3255fea57302ed52d7147 /perl_checker | |
| parent | 0557e702a03474955bf16acbb6fff6f5353f8b74 (diff) | |
| download | perl-MDK-Common-39bed9aba4ff78ff5f9f98704beaa261c1c7507c.tar perl-MDK-Common-39bed9aba4ff78ff5f9f98704beaa261c1c7507c.tar.gz perl-MDK-Common-39bed9aba4ff78ff5f9f98704beaa261c1c7507c.tar.bz2 perl-MDK-Common-39bed9aba4ff78ff5f9f98704beaa261c1c7507c.tar.xz perl-MDK-Common-39bed9aba4ff78ff5f9f98704beaa261c1c7507c.zip | |
add checking for << and >> operators priority use
Diffstat (limited to 'perl_checker')
| -rwxr-xr-x | perl_checker | 4 |
1 files changed, 4 insertions, 0 deletions
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]; |