False positive in Test "my $foo = @bar" vermeiden
authorMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 18 Apr 2011 09:11:36 +0000 (11:11 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Mon, 18 Apr 2011 09:11:51 +0000 (11:11 +0200)
t/structure/common_errors.t

index 6e73070..c23c6b4 100644 (file)
@@ -32,7 +32,7 @@ my @testitems = @Support::Files::testitems;
 
 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'                           ],