False positive in Test "my $foo = @bar" vermeiden

diff --git a/t/structure/common_errors.t b/t/structure/common_errors.t
index 6e73070b19965ed70a9c2799ade93bc9324f4878..c23c6b480aa97c003808faf271b1e722d20eaa91 100644 (file)
--- a/t/structure/common_errors.t
+++ b/t/structure/common_errors.t
@@ -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'                           ],