Added lots more modules from lintian. Maemian appears to work.

[maemian] / checks / common_data.pm

diff --git a/checks/common_data.pm b/checks/common_data.pm
new file mode 100644 (file)
index 0000000..3aa5884
--- /dev/null
+++ b/checks/common_data.pm
@@ -0,0 +1,43 @@
+#! /usr/bin/perl -w
+
+package common_data;
+use base qw(Exporter);
+
+our @EXPORT = qw
+(
+   %known_source_fields %known_essential $known_shells_regex
+);
+
+# To let "perl -cw" test know we use these variables;
+use vars qw
+(
+  %known_source_fields %known_essential $known_shells_regex
+);
+
+# simple defines for commonly needed data
+
+# The Ubuntu original-maintainer field is handled separately.
+%known_source_fields = map { $_ => 1 }
+    ('source', 'version', 'maintainer', 'binary', 'architecture',
+     'standards-version', 'files', 'build-depends', 'build-depends-indep',
+     'build-conflicts', 'build-conflicts-indep', 'format', 'origin',
+     'uploaders', 'python-version', 'autobuild', 'homepage', 'vcs-arch',
+     'vcs-bzr', 'vcs-cvs', 'vcs-darcs', 'vcs-git', 'vcs-hg', 'vcs-mtn',
+     'vcs-svn', 'vcs-browser', 'dm-upload-allowed', 'bugs', 'checksums-sha1',
+     'checksums-sha256', 'checksums-md5');
+
+%known_essential = map { $_ => 1 }
+    ('base-files', 'base-passwd', 'bash', 'bsdutils', 'coreutils',
+     'debianutils', 'diff', 'dpkg', 'e2fsprogs', 'findutils', 'grep', 'gzip',
+     'hostname', 'login', 'mktemp', 'mount', 'ncurses-base', 'ncurses-bin',
+     'perl-base', 'sed', 'sysvinit', 'sysvinit-utils', 'tar', 'util-linux');
+
+$known_shells_regex = qr'(?:(?:b|d)?a|t?c|(?:pd|m)?k|z)?sh';
+
+1;
+
+# Local Variables:
+# indent-tabs-mode: nil
+# cperl-indent-level: 4
+# End:
+# vim: syntax=perl sw=4 sts=4 ts=4 et shiftround