From 38fb1afbf433c9546f8d48ebf9f24b0fc320a565 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Mon, 15 Sep 2003 13:23:45 -0800
Subject: [PATCH] [project @ 2003-09-15 14:23:45 by doogie] Split includes and
 excludes on the first :.

---
 cgi/common.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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; }
-- 
2.39.5