From 5838e8b7f865c44688889d7f2b38f92e4e77b787 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 3 Aug 2009 07:25:42 -0700
Subject: [PATCH] use splitpackages in process

---
 scripts/process | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scripts/process b/scripts/process
index e3243ca..c4c0ffe 100755
--- a/scripts/process
+++ b/scripts/process
@@ -17,7 +17,7 @@ use Debbugs::Mail qw(send_mail_message encode_headers get_addresses);
 use Debbugs::Packages qw(getpkgsrc);
 use Debbugs::User qw(read_usertags write_usertags);
 use Debbugs::Common qw(:lock get_hashname);
-use Debbugs::Status qw(writebug isstrongseverity lockreadbugmerge lockreadbug read_bug :versions);
+use Debbugs::Status qw(writebug isstrongseverity lockreadbugmerge lockreadbug read_bug splitpackages :versions);
 
 use Debbugs::CGI qw(html_escape bug_url);
 
@@ -1083,7 +1083,7 @@ sub checkmaintainers {
     }
     close(SOURCES);
     my $anymaintfound=0; my $anymaintnotfound=0;
-    for my $p (split(m/[ \t?,():]+/,$data->{package})) {
+    for my $p (splitpackages($data->{package})) {
         $p =~ y/A-Z/a-z/;
 	$p =~ /([a-z0-9.+-]+)/;
 	$p = $1;
-- 
2.39.2