From 9424a8009f905801bcfcc85f00e1ae3ee2074f1e Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Wed, 1 Oct 2003 13:40:40 -0800
Subject: [PATCH] [project @ 2003-10-01 14:40:40 by cjwatson] Split
 $data->{package} on colons too in service as well as process.

---
 scripts/service.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/service.in b/scripts/service.in
index c92124d..720a554 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.92 2003/09/01 01:19:24 cjwatson Exp $
+# $Id: service.in,v 1.93 2003/10/01 14:40:40 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -1056,7 +1056,7 @@ sub addmaintainers {
     my ($p, $addmaint, $pshow);
     &ensuremaintainersloaded;
     $anymaintfound=0; $anymaintnotfound=0;
-    for $p (split(m/[ \t?,()]+/, $data->{package})) {
+    for $p (split(m/[ \t?,():]+/, $data->{package})) {
  	$p =~ y/A-Z/a-z/;
         $pshow= ($p =~ m/[-+.a-z0-9]+/ ? $& : '');
 	if (defined $gSubscriptionDomain) {
-- 
2.39.2