X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2F002goodperl.t;h=28b69a4c549e9709f17cefb38a0e4c2aef5ea11d;hb=470a8fa1710b22e2b381eef4cacb01bebaeff725;hp=75a378c1e85eed5b4a89bab93a9cee7caeb9e4e3;hpb=f6e8c87bc23cb8b31a554ce89af51d2c3b0a5efd;p=kivitendo-erp.git

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 75a378c1e..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;
         }
@@ -128,7 +129,7 @@ foreach my $file (@testitems) {
     if (!$found_html_count) {
         ok(1,"$file does not contain HTML");
     } elsif ($found_html_count < 50) {
-      TODO: { local $TODO = q(Even slow amounts should go away....);
+      TODO: { local $TODO = q(Even little amounts of HTML should go away....);
         ok(0,"$file contains at least $found_html_count html tags.");
       }
     } else {