vcs.maemo.org Git - maemian/blob - lib/Checker.pm

   1 # Checker -- Perl checker functions for lintian
   2
   3 # Copyright (C) 2004 Jeroen van Wolffelaar
   4 #
   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.
   9 #
  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.
  14 #
  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,
  19 # MA 02110-1301, USA.
  20
  21 package Checker;
  22 use strict;
  23 no strict 'refs';
  24
  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;
  29 my $debug = $::debug;
  30
  31 sub runcheck {
  32         my ($pkg, $type, $info, $name) = @_;
  33
  34         # Will be set to 2 if error is encountered
  35         my $return = 0;
  36
  37         print "N: Running check: $name ...\n" if $debug;
  38
  39         # require has an anti-require-twice cache
  40         require "$MAEMIAN_ROOT/checks/$name";
  41
  42         $name =~ s/[-.]/_/g;
  43         eval { &{'Maemian::'.$name.'::run'}($pkg, $type, $info) };
  44         if ( $@ ) {
  45             print STDERR $@;
  46             print STDERR "internal error: cannot run $name check on package $pkg\n";
  47             $return = 2;
  48         }
  49
  50         return $return;
  51 }
  52
  53 1;
  54
  55 # Local Variables:
  56 # indent-tabs-mode: t
  57 # cperl-indent-level: 8
  58 # End:
  59 # vim: ts=4 sw=4 noet