From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 18 Apr 2011 09:11:36 +0000 (+0200)
Subject: False positive in Test "my $foo = @bar" vermeiden
X-Git-Tag: release-2.6.3~35^2~2
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=19384d737d8221d16cd1108bc3e4bea2aa93862b;p=kivitendo-erp.git

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

diff --git a/t/structure/common_errors.t b/t/structure/common_errors.t
index 6e73070b1..c23c6b480 100644
--- 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'                           ],