From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 11 Feb 2011 11:45:39 +0000 (+0100)
Subject: 002goodperl.t: POD Sektionen nicht prüfen.
X-Git-Tag: release-2.6.3~61^2~2
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=5af819906ae8e00533c4cdfc16a5f410e5116eb9;p=kivitendo-erp.git

002goodperl.t: POD Sektionen nicht prüfen.
---

diff --git a/t/002goodperl.t b/t/002goodperl.t
index fa205b17c..28b69a4c5 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -119,7 +119,8 @@ foreach my $file (@testitems) {
         next;
     }
     while (my $file_line = <FILE>) {
-        if ($file_line =~ m/(<\/?$tags>)/) {
+        last if $file_line =~ /^__END__/;
+        if ($file_line =~ m/(<\/?$tags>)/o) {
             $found_html_count++;
             $found_html .= $1;
         }