try reverse compounds like T/FR5DX as well

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index d70d921b404e31dc795860610984a588da9ee586..66f3644e9333a1b5a17ad9a70cafcd30776a1ce0 100644 (file)
--- 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 {