| Subject: | Caching broken in 1.14 |
I have use GEOIP_MEMORY_CACHE with Geo::IP::PurePerl 1.10 (Perl 5.8.5) without a problem.
After upgrading to Geo::IP::PurePerl 1.14 all lookups fail.
I have modified the lookup testcase to use caching and it fails.
Please somebody look into this and add the new testcase.
Thanks!
use strict;
use vars qw($dat);
BEGIN {
foreach my $file ("GeoIP.dat",'/usr/local/share/GeoIP/GeoIP.dat') {
if (-f $file) {
$dat = $file;
last;
}
}
unless ($dat) {
print "1..0 # skip No GeoIP.dat found\n";
exit;
}
}
use Test;
$^W = 1;
BEGIN { plan tests => 18 }
use Geo::IP::PurePerl;
my $gi = Geo::IP::PurePerl->new($dat,GEOIP_MEMORY_CACHE);
while (<DATA>) {
chomp;
my ($ipaddr, $exp_country) = split("\t");
my $country = $gi->country_code_by_addr($ipaddr);
ok(uc($country), $exp_country);
}
__DATA__
203.174.65.12 JP
212.208.74.140 FR
200.219.192.106 BR
134.102.101.18 DE
193.75.148.28 BE
134.102.101.18 DE
147.251.48.1 CZ
194.244.83.2 IT
203.15.106.23 AU
196.31.1.1 ZA
210.54.22.1 NZ
210.25.5.5 CN
210.54.122.1 NZ
210.25.15.5 CN
192.37.51.100 CH
192.37.150.150 CH
192.106.51.100 IT
192.106.150.150 IT