diff options
author | jake%acutex.net <> | 2001-08-18 10:35:36 +0000 |
---|---|---|
committer | jake%acutex.net <> | 2001-08-18 10:35:36 +0000 |
commit | 19fac474c4e5c37062fe55633943846430ef549f (patch) | |
tree | f94341742f3c12676a28751c605d40c3d02df679 /process_bug.cgi | |
parent | a6f587a48e315d44edee876e9a21d9e5e51e51ee (diff) | |
download | bugs-19fac474c4e5c37062fe55633943846430ef549f.tar bugs-19fac474c4e5c37062fe55633943846430ef549f.tar.gz bugs-19fac474c4e5c37062fe55633943846430ef549f.tar.bz2 bugs-19fac474c4e5c37062fe55633943846430ef549f.tar.xz bugs-19fac474c4e5c37062fe55633943846430ef549f.zip |
Refixing bug 95875 - The code that breakes the typed in CC list into individual lists is now slightly more robust and allows perl to handle the splitting more efficiently (by using a space as the delimiter).
r= myk@mozilla.org
Diffstat (limited to 'process_bug.cgi')
-rwxr-xr-x | process_bug.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/process_bug.cgi b/process_bug.cgi index 5bb180c5a..82e9cb988 100755 --- a/process_bug.cgi +++ b/process_bug.cgi @@ -582,15 +582,15 @@ if (defined $::FORM{newcc} || defined $::FORM{removecc} || defined $::FORM{massc } if ($cc_add) { - $cc_add =~ s/^[\s,]+//; # Remove leading delimiters. - foreach my $person ( split(/[\s,]+/, $cc_add) ) { + $cc_add =~ s/[\s,]+/ /g; # Change all delimiters to a single space + foreach my $person ( split(" ", $cc_add) ) { my $pid = DBNameToIdAndCheck($person); $cc_add{$pid} = $person; } } if ($cc_remove) { - $cc_remove =~ s/^[\s,]+//; # Remove leading delimiters. - foreach my $person ( split(/[\s,]+/, $cc_remove) ) { + $cc_remove =~ s/[\s,]+/ /g; # Change all delimiters to a single space + foreach my $person ( split(" ", $cc_remove) ) { my $pid = DBNameToIdAndCheck($person); $cc_remove{$pid} = $person; } |