+sub override_maint {
+ my ($self, $data) = @_;
+
+ return if $data->{'original-maintainer'};
+ return unless $data->{maintainer};
+
+ my ($name, $mail) = split_name_mail( $data->{maintainer} );
+
+ # taken from etc/pkgbinarymangler/maintainermangler.overrides
+ return if $mail =~ /\@(ubuntu\.com|canonical\.com|lists\.ubuntu\.com|lists\.canonical\.com|ubuntu\.com\.au|kubuntu\.org)^/o;
+ return if $mail =~ /^(lamont\@debian\.org|q-funk\@iki\.fi|cjwatson\@debian\.org|patrick\.matthaei\@web\.de)^/o;
+
+ if ($mail eq 'adconrad@0c3.net') {
+ $data->{maintainer} = 'Adam Conrad <adconrad@ubuntu.com>';
+ return 1;
+ }
+ if ($mail eq 'mpitt@debian.org') {
+ $data->{maintainer} = 'Martin Pitt <martin.pitt@ubuntu.com>';
+ return 1;
+ }
+
+ $data->{'original-maintainer'} = $data->{maintainer};
+ foreach ($data->{section}) {
+ /^(main|restricted)$/ && do {
+ $data->{maintainer} = 'Ubuntu Core Developers <ubuntu-devel-discuss@lists.ubuntu.com>';
+ last;
+ };
+ /^(uni|multi)verse$/ && do {
+ $data->{maintainer} = 'Ubuntu MOTU Developers <ubuntu-motu@lists.ubuntu.com>';
+ last;
+ };
+
+ die 'Huh?';
+ }
+
+ return 1;
+}
+