From: doogie <>
Date: Mon, 15 Sep 2003 21:23:45 +0000 (-0800)
Subject: [project @ 2003-09-15 14:23:45 by doogie]
X-Git-Tag: release/2.6.0~795
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=38fb1afbf433c9546f8d48ebf9f24b0fc320a565;p=debbugs.git

[project @ 2003-09-15 14:23:45 by doogie]
Split includes and excludes on the first :.
---

diff --git a/cgi/common.pl b/cgi/common.pl
index f639daa1..103a0c80 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -43,7 +43,7 @@ sub set_option {
 	@vals = ( $$val ) if (ref($val) eq "SCALAR" && $$val );
 	@vals = @{$val} if (ref($val) eq "ARRAY" );
 	%common_exclude = map {
-	    if (/^(.*):(.*)$/) { ($1, $2) } else { ($_, 1) }
+	    if (/^([^:]*):(.*)$/) { ($1, $2) } else { ($_, 1) }
 	} split /[\s,]+/, join ',', @vals;
     }
     if ($opt eq "include") {
@@ -52,7 +52,7 @@ sub set_option {
 	@vals = ( $$val, ) if (ref($val) eq "SCALAR" && $$val );
 	@vals = @{$val} if (ref($val) eq "ARRAY" );
 	%common_include = map {
-	    if (/^(.*):(.*)$/) { ($1, $2) } else { ($_, 1) }
+	    if (/^([^:]*):(.*)$/) { ($1, $2) } else { ($_, 1) }
 	} split /[\s,]+/, join ',', @vals;
     }
     if ($opt eq "raw") { $common_raw_sort = $val; }