X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=66f3644e9333a1b5a17ad9a70cafcd30776a1ce0;hb=7f1e45b77556de69d0f4b59fa470191f8499803b;hp=d70d921b404e31dc795860610984a588da9ee586;hpb=843b10482c2ec781f9d2c399e9ae82870aca1eb2;p=spider.git

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 {