{ my $repo = $DB->get("base") or return ''; my @exclude = split /[;,]/, ($repo->prop('Exclude') || ''); push @exclude, 'libmemcached' unless (grep {$_ eq 'libmemcached'} @exclde); $repo->set_prop('Exclude', join(',', @exclude)); }