X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/185d9aae8dc204c61e003ee7863221927fea667b..refs/heads/order_controller:/t/002goodperl.t diff --git a/t/002goodperl.t b/t/002goodperl.t index 3b395b310..1f3a611d8 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,7 +106,7 @@ 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/; my $todo_files_re = qr{^bin/mozilla/ic\.pl$};