Tried this out and it appears to fix the problem: diff /usr/bin/debtree ~/src/debtree/debtree: *** /usr/bin/debtree 2009-11-08 09:27:41.000000000 +1000 --- debtree 2010-03-26 07:16:24.000000000 +1000 *************** *** 373,378 **** --- 373,380 ----
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; http://perldoc.perl.org/perlfaq6.html#How-do-I-match-a-regular-expression-that's-in-a-variable%3f------%2c- -- -Dave.