now fix the REAL problem with Prefix::extract

Which is that there is no alias 'Q' for 'QQ' in the new format
of wpxloc.raw

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 9a5f45da207b69df499ce7655cd0737864ad5fcf..53424e03e00e7e40cbae01f02e56f354b1b2cadf 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -442,7 +442,7 @@ L1:         for ($n = 0; $n < @parts; $n++) {
                }
 
                # we are a pirate!
-               @nout = matchprefix('Q');
+               @nout = matchprefix('QQ');
                $misses++;
                lru_put($call, \@nout);
                push @out, @nout;

diff --git a/perl/Version.pm b/perl/Version.pm
index 7033921195744d8d9eed3205deb8d89febad8f70..dbc52531c06bd0eae636bcce1d53bf65703659e2 100644 (file)
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.55';
 $subversion = '0';
-$build = '143';
-$gitversion = '3b2eb09';
+$build = '144';
+$gitversion = '0c963c4';
 
 1;