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

diff --git a/t/002goodperl.t b/t/002goodperl.t
index d80d9eea3..951790115 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -82,8 +82,6 @@ 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
@@ -108,13 +106,14 @@ foreach my $file (@testitems) {
 
 # note, the html checker is not really thorough.
 # in particular it will not find standard tags with parameters.
-# the estimate wether a file is dirty or not is still pretty helpful, as it will catch most of the closing tags.
+# the estimate whether a file is dirty or not is still pretty helpful, as it will catch most of the closing tags.
 # if you are in doubt about a specific file, you still have to check it manually.
 my $tags = qr/b|i|u|h[1-6]|a href.*|input|form|br|textarea|table|tr|td|th|body|head|html|p|button|select|option|script/;
 foreach my $file (@testitems) {
     my $found_html_count = 0;
     my $found_html       = '';
     $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
+
     next if (!$file); # skip null entries
     if (! open (FILE, $file)) {
         ok(0,"could not open $file --WARNING");
@@ -135,7 +134,7 @@ foreach my $file (@testitems) {
         ok(0,"$file contains at least $found_html_count html tags.");
       }
     } else {
-        ok(0,"$file contains at least $found_html_count html tags.");
+      ok(0,"$file contains at least $found_html_count html tags.");
     }
 }