From: 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.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa4e6b2355688929d347ef6e46fa6483709e5fda;p=spider.git 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 {