$p = $parts[0];
shift @parts if $p =~ /^(WEB|NET)$/o;
$p = $parts[$#parts];
- pop @parts if $p =~ /^(\d+|[JPABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
+ pop @parts if $p =~ /^(\d+|[PABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
$p = $parts[$#parts];
- pop @parts if $p =~ /^(\d+|[JPABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
+ pop @parts if $p =~ /^(\d+|[PABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
# can we resolve them by direct lookup
foreach $p (@parts) {
$part .= '*' unless $part eq '*' || $part eq $try;
dbg("Compound prefix: $try $part" );
}
- if (@try == 0) {
- $try = join('/', reverse @parts);
- @try = get($try);
- if (isdbg('prefix')) {
- my $part = $try[0] || "*";
- $part .= '*' unless $part eq '*' || $part eq $try;
- dbg("Compound prefix: $try $part" );
- }
- }
+# if (@try == 0) {
+# $try = join('/', reverse @parts);
+# @try = get($try);
+# if (isdbg('prefix')) {
+# my $part = $try[0] || "*";
+# $part .= '*' unless $part eq '*' || $part eq $try;
+# dbg("Compound prefix: $try $part" );
+# }
+# }
if (@try && $try eq $try[0]) {
push @out, @try;
} else {