[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 f639daa111f8eefbbeeadfbbc589817887ca2ed0..103a0c80d8e196e21c50efbe03502c5cd68bd24f 100644 (file)
--- 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; }