diff options
| -rwxr-xr-x | perl_checker | 4 |
1 files changed, 4 insertions, 0 deletions
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()); } |