On Thursday 25 March 2010, David Venz wrote:
> Tried this out and it appears to fix the problem:
>
> sub first_set_with_package {
> my ($package, $set) = @_;
> + # Escape any characters that will upset the regex below
> + $package = quotemeta($package);
> foreach my $s (sort keys %$set) {
> if ($$set{$s}{plist} =~ /(^|,)$package(,|$)/) {
> return $s;
Thanks, but I've already committed a different solution, which effectively
does the same:
if ($$set{$s}{plist} =~ /(^|,)\Q$package\E(,|$)/) {
A similar change was also needed in a few other places.
Cheers,
FJP
--
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org
