[project @ 2000-10-05 21:02:36 by joy]

skip empty lines and lines containing just whitespace in the Maintainers file

diff --git a/scripts/process.in b/scripts/process.in
index 4caf91e8b7bf0953b907b626ea28dd37a68a3778..7ad815706802cb8e453f88dc30f44f958558f23a 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.12 2000/09/29 22:00:27 joy Exp $
+# $Id: process.in,v 1.13 2000/10/05 21:02:36 joy Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -853,6 +853,8 @@ sub checkmaintainers {
     return if !length($s_package);
     open(MAINT,"$gMaintainerFile") || die &quit("maintainers open: $!");
     while (<MAINT>) {
+       m/^\n$/ && next;
+       m/^\s*$/ && next;
         m/^(\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 9f96c12c869754e387432059a1a3752c3ae36474..0ae6fa7f19a4d8ced7567400b77ba5b1d024ed19 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: service.in,v 1.13 2000/10/02 15:52:22 joy Exp $
+# $Id: service.in,v 1.14 2000/10/05 21:02:36 joy Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -810,6 +810,8 @@ sub ensuremaintainersloaded {
     return if $maintainersloaded++;
     open(MAINT,"$gMaintainerFile") || die &quit("maintainers open: $!");
     while (<MAINT>) {
+       m/^\n$/ && next;
+       m/^\s*$/ && next;
         m/^(\S+)\s+(\S.*\S)\n$/ || &quit("maintainers bogus \`$_'");
         $a= $1; $b= $2; $a =~ y/A-Z/a-z/;
         $maintainerof{$1}= $2;