From 7f1e45b77556de69d0f4b59fa470191f8499803b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 4 Jul 2002 16:31:11 +0000
Subject: [PATCH] try reverse compounds like T/FR5DX as well

---
 perl/Prefix.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

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 {
-- 
2.34.1