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