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.
