/usr/share/perl5/Lintian/Output/FullEWI.pm is in lintian 2.5.50.4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | # Copyright © 2011 Niels Thykier <niels@thykier.net>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, you can find it on the World Wide
# Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
# MA 02110-1301, USA.
package Lintian::Output::FullEWI;
# The FullEWI always emit *full* package metadata even if it is
# redundant (that is, optional values are always included) when
# emitting tags.
# Other than that, it is identical to the normal output.
#
# When parsing a lintian.log written in format, it is no longer
# ambiguous which package is referred to (even if --verbose is
# not used).
# This makes machine-parsing of the log easier, especially
# when using the parsed data with the Lintian::Lab API.
#
# The full format of the emitted tag is:
#
# C: name type (version) [arch]: tag [...]
#
# Note the "[...]" is the extra which may or may not be present
# depending on the tag.
#
# Notable cases:
# * binary packages include type classification
# * source packages include an architecture, which is always
# "source".
# * "[arch]" may contain spaces (and generally do for .changes)
# files.
# * "(version)" may contain colon (i.e. epoch versions)
use strict;
use warnings;
use parent qw(Lintian::Output);
# Overridden from Lintian::Output
sub _format_pkg_info {
my ($self, $pkg_info, $tag_info, $override) = @_;
my $code = $tag_info->code;
$code = 'X' if $tag_info->experimental;
$code = 'O' if defined $override;
my $version = $pkg_info->{version};
my $arch = '';
my $type = $pkg_info->{type};
$arch = "$pkg_info->{arch}" if $pkg_info->{type} ne 'source';
$arch = 'source' unless $arch;
return "$code: $pkg_info->{package} $type ($version) [$arch]";
}
1;
|