[project @ 2001-05-02 20:13:49 by joy]

allow spaces after email in the maintainers file (fixes a recent Maintainers file breakage)

diff --git a/scripts/process.in b/scripts/process.in
index 9eae5b59a0a48bacefec4df98b952bdc41b6c4da..8e718a3f12590650b2b5062a8d210523e9df2d9b 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.27 2001/04/24 19:10:26 doogie Exp $
+# $Id: process.in,v 1.28 2001/05/02 20:13:49 joy Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -875,7 +875,7 @@ sub checkmaintainers {
     while (<MAINT>) {
        m/^\n$/ && next;
        m/^\s*$/ && next;
-        m/^(\S+)\s+(\S.*\S)\n$/ || &quit("maintainers bogus \`$_'");
+        m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
         $maintainerof{$1}= $2;
     }

diff --git a/scripts/service.in b/scripts/service.in
index 083e5265382805421a0cb8ca2b1523b303ddda54..7f733bc0a2d340e56eb1c231ff1228985ae88a8b 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.35 2001/04/24 19:10:26 doogie Exp $
+# $Id: service.in,v 1.36 2001/05/02 20:13:49 joy Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -919,7 +919,7 @@ sub ensuremaintainersloaded {
     while (<MAINT>) {
        m/^\n$/ && next;
        m/^\s*$/ && next;
-        m/^(\S+)\s+(\S.*\S)\n$/ || &quit("maintainers bogus \`$_'");
+        m/^(\S+)\s+(\S.*\S)\s*\n$/ || &quit("maintainers bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
         $maintainerof{$1}= $2;
     }