[project @ 2001-04-24 19:10:26 by doogie]

[debbugs.git] / scripts / process.in

diff --git a/scripts/process.in b/scripts/process.in
index 27e2505a284ebef560b8b2c5f8a4520391642148..9eae5b59a0a48bacefec4df98b952bdc41b6c4da 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.26 2001/03/18 05:13:52 doogie Exp $
+# $Id: process.in,v 1.27 2001/04/24 19:10:26 doogie Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -880,6 +880,15 @@ sub checkmaintainers {
         $maintainerof{$1}= $2;
     }
     close(MAINT);
+    open(MAINT,"$gMaintainerFileOverride") || die &quit("maintainers.override open: $!");
+    while (<MAINT>) {
+       m/^\n$/ && next;
+       m/^\s*$/ && next;
+        m/^(\S+)\s+(\S.*\S)\n$/ || &quit("maintainers.override bogus \`$_'");
+        $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
+        $maintainerof{$1}= $2;
+    }
+    close(MAINT);
     $anymaintfound=0; $anymaintnotfound=0;
     for $p (split(m/[ \t?,()]+/,$s_package)) {
         $p =~ y/A-Z/a-z/;