From 7f1e45b77556de69d0f4b59fa470191f8499803b Mon Sep 17 00:00:00 2001 From: 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.43.0