X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/c061f3073396865dc7ea45eda1214cf18746b50e..23f857a6f05af4d741625bfc4c93e8a490401b1f:/t/002goodperl.t?ds=inline

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;
         }