From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 3 Aug 2009 14:25:42 +0000 (-0700)
Subject: use splitpackages in process
X-Git-Tag: release/2.6.0~456^2~13
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=5838e8b7f865c44688889d7f2b38f92e4e77b787

use splitpackages in process
---

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;