take out the reverse lookup

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 99fc49fdca07244831332c326ed762251a24ae6e..e1dd5e5adc48b83965e6c9dfe84077b79c7f3af2 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -228,15 +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 == 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 {