diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-10-25 10:37:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-10-25 10:37:51 +0000 |
| commit | d9fcecf3ec79c33544662517e4135e1afa10f6af (patch) | |
| tree | 8d1bce9975dfc6e65ac6e454a84e7578e5d6c29e | |
| parent | 4b2ed2ecc464fad561ef281fe89ce5db1c31ccfc (diff) | |
| download | perl-MDK-Common-d9fcecf3ec79c33544662517e4135e1afa10f6af.tar perl-MDK-Common-d9fcecf3ec79c33544662517e4135e1afa10f6af.tar.gz perl-MDK-Common-d9fcecf3ec79c33544662517e4135e1afa10f6af.tar.bz2 perl-MDK-Common-d9fcecf3ec79c33544662517e4135e1afa10f6af.tar.xz perl-MDK-Common-d9fcecf3ec79c33544662517e4135e1afa10f6af.zip | |
detect "cond ? $v1 = XX1 : $v2 = XX2" error
| -rwxr-xr-x | perl_checker | 3 |
1 files changed, 3 insertions, 0 deletions
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; |