oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improved whitespace test, found 24 more files with pod problems

Browse source
This commit is contained in:
Wouter van Oijen 2006-05-21 13:37:37 +00:00
parent a154227122
commit f09b385a30
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
t/Whitespace.t
View file

@ -50,15 +50,23 @@ sub checkModules {
return scalar(@failedModules);
}
#---------------------------------------------------------------------
# Note: this test checks for non-empty lines before POD commands
# which are not detected by podchecker, but are causing problems
# for pod2html (might be a bug in the latter). This results in badly
# formatted and invalid API documentation.
#---------------------------------------------------------------------
sub checkContent {
my $content = shift;
my @content = @{$content};
my $badEnd = 0;
my $podAllowed = 0;
foreach my $line (@content) {
chomp $line;
my $isPodWord = ($line =~ m/^=/);
return 1 if ($isPodWord && $badEnd);
$badEnd = ($line =~ m/[ \t]$/);
return 1 if ($isPodWord && !$podAllowed);
# POD is allowed on next line if current line is empty
$podAllowed = ($line eq '');
}
return 0;