X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=t%2F002goodperl.t;h=d80d9eea31eae67840cbe2eda253cf1439dcb4ef;hb=c979fc6c1783358ad77adb4003c6f3755e92547b;hp=fa205b17c68a80fc186e0dd3eddae046d17a7554;hpb=c061f3073396865dc7ea45eda1214cf18746b50e;p=kivitendo-erp.git

diff --git a/t/002goodperl.t b/t/002goodperl.t
index fa205b17c..d80d9eea3 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -82,6 +82,8 @@ foreach my $file (@testitems) {
 }
 
 foreach my $file (@testitems) {
+    local $TODO;
+    $TODO = 'schema updates are not required to be strict now' if $file =~ m{^sql/Pg-upgrade2};
     my $found_use_strict = 0;
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
     next if (!$file); # skip null entries
@@ -119,7 +121,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;
         }