From dc397f24d7242cf3ccdb87a3e1467963c58fa2f9 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0