allow /J as a prefix

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 66f3644e9333a1b5a17ad9a70cafcd30776a1ce0..99fc49fdca07244831332c326ed762251a24ae6e 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -163,9 +163,9 @@ sub extract
                        $p = $parts[0];
                        shift @parts if $p =~ /^(WEB|NET)$/o;
                        $p = $parts[$#parts];
-                       pop @parts if $p =~ /^(\d+|[JPABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
+                       pop @parts if $p =~ /^(\d+|[PABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
                        $p = $parts[$#parts];
-                       pop @parts if $p =~ /^(\d+|[JPABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
+                       pop @parts if $p =~ /^(\d+|[PABM]|AM|MM|BCN|JOTA|SIX|WEB|NET|Q\w+)$/o;
          
                        # can we resolve them by direct lookup
                        foreach $p (@parts) {