From dc397f24d7242cf3ccdb87a3e1467963c58fa2f9 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 8 Mar 2014 00:43:03 +0000
Subject: [PATCH] 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
---
 perl/Prefix.pm  | 2 +-
 perl/Version.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 9a5f45da..53424e03 100644
--- 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 70339211..dbc52531 100644
--- 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;
-- 
2.34.1