+ my ($field, $maintainer) = map { split /: / } grep /Maintainer/, @lines;
+ chomp($maintainer);
+ if ($maintainer =~ /(ubuntu|debian)/i) {
+ print "W: Maintainer email addres ($maintainer) might be the same as upstream.\n";
+ }
+ else {
+ print "N: $maintainer\n";
+ }