From: Dirk Koopman <djk@tobit.co.uk>
Date: Sat, 8 Mar 2014 00:43:03 +0000 (+0000)
Subject: now fix the REAL problem with Prefix::extract
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc397f24d7242cf3ccdb87a3e1467963c58fa2f9;p=spider.git

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 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;