vcs.maemo.org Git - maemian/blob - checks/common_data.pm

   1 #! /usr/bin/perl -w
   2
   3 package common_data;
   4 use base qw(Exporter);
   5
   6 our @EXPORT = qw
   7 (
   8    %known_source_fields %known_essential $known_shells_regex
   9 );
  10
  11 # To let "perl -cw" test know we use these variables;
  12 use vars qw
  13 (
  14   %known_source_fields %known_essential $known_shells_regex
  15 );
  16
  17 # simple defines for commonly needed data
  18
  19 # The Ubuntu original-maintainer field is handled separately.
  20 %known_source_fields = map { $_ => 1 }
  21     ('source', 'version', 'maintainer', 'binary', 'architecture',
  22      'standards-version', 'files', 'build-depends', 'build-depends-indep',
  23      'build-conflicts', 'build-conflicts-indep', 'format', 'origin',
  24      'uploaders', 'python-version', 'autobuild', 'homepage', 'vcs-arch',
  25      'vcs-bzr', 'vcs-cvs', 'vcs-darcs', 'vcs-git', 'vcs-hg', 'vcs-mtn',
  26      'vcs-svn', 'vcs-browser', 'dm-upload-allowed', 'bugs', 'checksums-sha1',
  27      'checksums-sha256', 'checksums-md5');
  28
  29 %known_essential = map { $_ => 1 }
  30     ('base-files', 'base-passwd', 'bash', 'bsdutils', 'coreutils',
  31      'debianutils', 'diff', 'dpkg', 'e2fsprogs', 'findutils', 'grep', 'gzip',
  32      'hostname', 'login', 'mktemp', 'mount', 'ncurses-base', 'ncurses-bin',
  33      'perl-base', 'sed', 'sysvinit', 'sysvinit-utils', 'tar', 'util-linux');
  34
  35 $known_shells_regex = qr'(?:(?:b|d)?a|t?c|(?:pd|m)?k|z)?sh';
  36
  37 1;
  38
  39 # Local Variables:
  40 # indent-tabs-mode: nil
  41 # cperl-indent-level: 4
  42 # End:
  43 # vim: syntax=perl sw=4 sts=4 ts=4 et shiftround