Revision 5af81990
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
|
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;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
002goodperl.t: POD Sektionen nicht prüfen.