--- burst.pl 2001/09/18 12:44:15 1.20 +++ burst.pl 2001/09/18 12:50:15 1.21 @@ -526,9 +526,10 @@ $content =~ s/<\/body>//i; # remove if any $content =~ s/<\/html>//i; # remove if any - $status = sprintf "Slide %2d: %s %s\n", $nr, $title, $subtitle; + $status = sprintf "Slide %2d: %s %s", $nr, $title, $subtitle; $status =~ s/<[^>]+>//g; - print STDERR $status; + $status =~ s/[\n\r]+/ /g; + print STDERR "$status\n"; &verify_html($content); # check the html &check_tags($content); # check open and closed tags