- my $path = shift;
- if (-r $path) {
- my ($filename, $dirs) = fileparse($path);
- # --- maemo is a trademarked term
- if ($filename =~ /maemo/) {
- print "W: Any use of the word \"maemo\" in the package name (not package version) is subject to trademark.\n";
- }
- # --- Open file into an array
- open my $file, '<', $path or die "Cannot open file: $!\n";
- my @lines = <$file>;
- close $file;
-
- my ($field, $maintainer) = map { split /: / } grep /Maintainer/, @lines;
- chomp($maintainer);
- if ($maintainer =~ /(ubuntu|debian)/i) {
- print "W: Maintainer email address ($maintainer) might be the same as upstream.\n";
- }
- else {
- $out->msg("$maintainer");
- }
- if (grep /BEGIN PGP SIGNED MESSAGE/, @lines) {
- $out->v_msg("$filename is signed");
- }
- $out->debug_msg(3, "\n$dirs\n$filename\n");