@@ -, +, @@ --------- kshell /home/vagrant/qa-test-tools/koha-qa.pl -v 2 -c 1 -- This will fail with POD coverage messages. exit -- POD coverage messages will be cleared up. --- QohA/Report.pm | 2 ++ 1 file changed, 2 insertions(+) --- a/QohA/Report.pm +++ a/QohA/Report.pm @@ -72,6 +72,8 @@ sub to_string { @diff = grep {not $subs_before{$_}} @{ $after->{subs} }; if ( @diff ) { @diff = map {"POD is missing for $_"} @diff; + } elsif ( scalar @{ $after->{subs} } == 0 && scalar @{ $before->{subs} } == 0 ) { + # This is perfectly okay. } elsif ( $before->{rating} > $after->{rating} ) { # Not sure we can reach this @diff = ('POD coverage was greater before, try perl -MPod::Coverage=PackageName -e666'); --