1 # Checker -- Perl checker functions for lintian
3 # Copyright (C) 2004 Jeroen van Wolffelaar
5 # This program is free software; you can redistribute it and/or modify
6 # it under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 2 of the License, or
8 # (at your option) any later version.
10 # This program is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with this program. If not, you can find it on the World Wide
17 # Web at http://www.gnu.org/copyleft/gpl.html, or write to the Free
18 # Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
25 # Quiet "Name "main::MAEMIAN_ROOT" used only once"
26 # The variable comes from 'lintian'
27 () = $main::MAEMIAN_ROOT;
28 my $MAEMIAN_ROOT = $main::MAEMIAN_ROOT;
32 my ($pkg, $type, $info, $name) = @_;
34 # Will be set to 2 if error is encountered
37 print "N: Running check: $name ...\n" if $debug;
39 # require has an anti-require-twice cache
40 require "$MAEMIAN_ROOT/checks/$name";
43 eval { &{'Maemian::'.$name.'::run'}($pkg, $type, $info) };
46 print STDERR "internal error: cannot run $name check on package $pkg\n";
57 # cperl-indent-level: 8