Revision 5af81990
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| t/002goodperl.t | ||
|---|---|---|
| 119 | 119 |
next; |
| 120 | 120 |
} |
| 121 | 121 |
while (my $file_line = <FILE>) {
|
| 122 |
if ($file_line =~ m/(<\/?$tags>)/) {
|
|
| 122 |
last if $file_line =~ /^__END__/; |
|
| 123 |
if ($file_line =~ m/(<\/?$tags>)/o) {
|
|
| 123 | 124 |
$found_html_count++; |
| 124 | 125 |
$found_html .= $1; |
| 125 | 126 |
} |
Auch abrufbar als: Unified diff
002goodperl.t: POD Sektionen nicht prüfen.