do not merge comma separated lists with zero separated lists

This commit is contained in:
Dietmar Maurer 2011-10-12 11:38:43 +02:00
parent 2026f4b5b4
commit d2b0374d48

View File

@ -351,7 +351,9 @@ sub run_command {
sub split_list { sub split_list {
my $listtxt = shift || ''; my $listtxt = shift || '';
$listtxt =~ s/[,;\0]/ /g; return split (/\0/, $listtxt) if $listtxt =~ m/\0/;
$listtxt =~ s/[,;]/ /g;
$listtxt =~ s/^\s+//; $listtxt =~ s/^\s+//;
my @data = split (/\s+/, $listtxt); my @data = split (/\s+/, $listtxt);