From a01b9dcf9a94ca25936ba5b645e083e06194a275 Mon Sep 17 00:00:00 2001 From: joy <> Date: Wed, 2 May 2001 19:13:49 -0800 Subject: [PATCH] [project @ 2001-05-02 20:13:49 by joy] allow spaces after email in the maintainers file (fixes a recent Maintainers file breakage) --- scripts/process.in | 4 ++-- scripts/service.in | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/process.in b/scripts/process.in index 9eae5b59..8e718a3f 100755 --- 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 () { 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 083e5265..7f733bc0 100755 --- 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 .nn @@ -919,7 +919,7 @@ sub ensuremaintainersloaded { while () { 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; } -- 2.39.5