{ head("Lintian Report for $name") }
At the time of the last Lintian run, the following possible problems were found in packages maintained by {$maintainer}, listed by source package. { if ($errors) { qq( See also the full report, including) . " info, experimental and overridden tags."; } else { qq( See also the report showing) . " only errors and warnings."; } } Also see their QA overview.
{ # Show the summary only if the number of packages is within a certain # range. my $num_packages = keys(%packages) + keys(%uploads); if ($num_packages) { $OUT .= qq( \n"; } } { # We get a hash of package names to a hash of versions to a list of tags. # Create a list with the package information as the title and the tags as # the value. for my $source (sort (keys (%packages), keys (%uploads))) { my ($data, $upload); my $first_version = 1; if ($packages{$source}) { $data = $packages{$source}; } else { $data = $uploads{$source}; $upload = 1; } for my $version (sort by_version keys %$data) { my @tags = @{$data->{$version}}; my @error_tags = grep { $_->{code} eq 'E' or $_->{code} eq 'W' } @tags; my $first = 1; my $binary = ''; my $tag = ''; my $firstcomponent = ''; # Tracks whether we have opened an "\n); $OUT .= qq( Info\n); $OUT .= qq( Package Tracker\n); $OUT .= qq( Bugs\n); $OUT .= qq( Source\n); if ($errors) { $OUT .= qq( Full report\n); } elsif (@error_tags) { $OUT .= qq( Short report\n); } $OUT .= qq[ (${status}, last processed by Lintian/$last_processed_by)]; $OUT .= qq(
\n