Revision 19384d73
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| t/structure/common_errors.t | ||
|---|---|---|
|
|
||
|
my @common_errors = ([ '^\s*my\s+%[a-z0-9_]+\s*=\s*shift' ],
|
||
|
[ '^\s*my\s+\(.*\)\s*=\s*shift' ],
|
||
|
[ '^\s*my\s+\$.*\s*=\s*@_' ],
|
||
|
[ '^\s*my\s+\$[^=]*=\s*@_' ],
|
||
|
[ '@[a-z0-9_]+->' ],
|
||
|
[ 'uft8' ],
|
||
|
[ '\$slef' ],
|
||
Auch abrufbar als: Unified diff
False positive in Test "my $foo = @bar" vermeiden