Tabs sind mittlerweilee selten genug dass man sie forcieren kann.

[kivitendo-erp.git] / t / 002goodperl.t

diff --git a/t/002goodperl.t b/t/002goodperl.t
index fa205b17c68a80fc186e0dd3eddae046d17a7554..28b69a4c549e9709f17cefb38a0e4c2aef5ea11d 100644 (file)
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -119,7 +119,8 @@ foreach my $file (@testitems) {
         next;
     }
     while (my $file_line = <FILE>) {
         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;
         }
             $found_html_count++;
             $found_html .= $1;
         }