From: minima <minima>
Date: Thu, 4 Jul 2002 16:31:11 +0000 (+0000)
Subject: try reverse compounds like T/FR5DX as well
X-Git-Tag: R_1_50~38
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=7f1e45b77556de69d0f4b59fa470191f8499803b

try reverse compounds like T/FR5DX as well
---

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index d70d921b..66f3644e 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -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 {