X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/c6d0de695657e132931e883c08f1436974bc22f2..923c8609be1b07bfdcbc515a5e3a2a64e2edbedb:/t/002goodperl.t diff --git a/t/002goodperl.t b/t/002goodperl.t index 28b69a4c5..951790115 100644 --- a/t/002goodperl.t +++ b/t/002goodperl.t @@ -106,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"); @@ -133,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."); } }