diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-23 12:00:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-23 12:00:01 +0000 |
| commit | 938d42ec4730ab52eab8df881415944d05c02494 (patch) | |
| tree | 701c21bbbdde26e2aa935f7751b6979e18733095 /perl_checker | |
| parent | bbb81ea00eea73b0363f03b34714f5f7ee8e8f0e (diff) | |
| download | perl-MDK-Common-938d42ec4730ab52eab8df881415944d05c02494.tar perl-MDK-Common-938d42ec4730ab52eab8df881415944d05c02494.tar.gz perl-MDK-Common-938d42ec4730ab52eab8df881415944d05c02494.tar.bz2 perl-MDK-Common-938d42ec4730ab52eab8df881415944d05c02494.tar.xz perl-MDK-Common-938d42ec4730ab52eab8df881415944d05c02494.zip | |
catch misuse of =~ when = was meant
Diffstat (limited to 'perl_checker')
| -rwxr-xr-x | perl_checker | 3 |
1 files changed, 3 insertions, 0 deletions
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'; |