X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FPrefix.pm;h=e1dd5e5adc48b83965e6c9dfe84077b79c7f3af2;hb=fa4e6b2355688929d347ef6e46fa6483709e5fda;hp=d70d921b404e31dc795860610984a588da9ee586;hpb=843b10482c2ec781f9d2c399e9ae82870aca1eb2;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index d70d921b..e1dd5e5a 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -163,9 +163,9 @@ sub extract
 			$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) {
@@ -228,6 +228,15 @@ L1:		for ($n = 0; $n < @parts; $n++) {
 							$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 {