/usr/share/perl5/Lintian/Output/ColonSeparated.pm is in lintian 2.5.43ubuntu0.1.
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 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 | # Tags::ColonSeparated -- Perl tags functions for lintian
# $Id: Tags.pm 489 2005-09-17 00:06:30Z djpig $
# Copyright (C) 2005,2008 Frank Lichtenheld <frank@lichtenheld.de>
#
# 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::ColonSeparated;
use strict;
use warnings;
use Lintian::Output qw(:util);
use parent qw(Lintian::Output);
sub print_tag {
my ($self, $pkg_info, $tag_info, $information, $override) = @_;
my $odata = '';
if ($override) {
$odata = $override->tag;
$odata .= ' ' . $self->_quote_print($override->extra)
if $override->extra;
}
$self->issued_tag($tag_info->tag);
$self->_print(
'tag',
$tag_info->code,
$tag_info->severity,
$tag_info->certainty,
($tag_info->experimental ? 'X' : '') . (defined($override) ? 'O' : ''),
@{$pkg_info}{'package','version','arch','type'},
$tag_info->tag,
$self->_quote_print($information),
$odata,
);
return;
}
sub _delimiter {
return;
}
sub _message {
my ($self, @args) = @_;
foreach (@args) {
$self->_print('message', $_);
}
return;
}
sub _warning {
my ($self, @args) = @_;
foreach (@args) {
$self->_print('warning', $_);
}
return;
}
sub _print {
my ($self, @args) = @_;
my $output = $self->string(@args);
print {$self->stdout} $output;
return;
}
sub string {
my ($self, @args) = _global_or_object(@_);
return join(':', _quote_char(':', @args))."\n";
}
sub _quote_char {
my ($char, @items) = @_;
foreach (@items) {
s/\\/\\\\/go;
s/\Q$char\E/\\$char/go;
}
return @items;
}
1;
# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et
|