From: minima <minima>
Date: Thu, 4 Jul 2002 17:27:41 +0000 (+0000)
Subject: take out the reverse lookup
X-Git-Tag: R_1_50~36
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=fa4e6b2355688929d347ef6e46fa6483709e5fda

take out the reverse lookup
---

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 99fc49fd..e1dd5e5a 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -228,15 +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 == 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 {