Skip Menu |
 

This queue is for tickets about the Geo-IPfree CPAN distribution.

Report information
The Basics
Id: 49468
Status: resolved
Priority: 0/
Queue: Geo-IPfree

People
Owner: Nobody in particular
Requestors: domisse [...] w3perl.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



CC: Laurent DOMISSE <domisse [...] w3perl.com>
MIME-Version: 1.0
X-Spam-Status: No, hits=0.0 required=8.0 tests=
content-type: text/plain; charset="utf-8"; format="flowed"
Message-ID: <4AA3FB4A.8010503 [...] w3perl.com>
Received: from la.mx.develooper.com (x1.develooper.com [207.171.7.70]) by diesel.bestpractical.com (Postfix) with SMTP id 975B94D8016 for <bug-Geo-IPfree [...] rt.cpan.org>; Sun, 6 Sep 2009 14:11:35 -0400 (EDT)
Received: (qmail 11689 invoked by uid 103); 6 Sep 2009 18:11:34 -0000
Received: from x16.dev (10.0.100.26) by x1.dev with QMQP; 6 Sep 2009 18:11:34 -0000
Received: from x34.futurequest.net (HELO x34.futurequest.net) (69.5.28.34) by 16.mx.develooper.com (qpsmtpd/0.80) with SMTP; Sun, 06 Sep 2009 11:11:28 -0700
Received: (qmail 25729 invoked from network); 6 Sep 2009 18:11:24 -0000
Delivered-To: cpan-bug+Geo-IPfree [...] diesel.bestpractical.com
User-Agent: Thunderbird 2.0.0.17 (X11/20080926)
Subject: Warning message
Return-Path: <domisse [...] w3perl.com>
X-Original-To: bug-Geo-IPfree [...] rt.cpan.org
X-Spam-Check-BY: 16.mx.develooper.com
Date: Sun, 06 Sep 2009 20:11:22 +0200
X-Spam-Level: *
X-Originating-Ip: [82.234.9.232]
To: bug-Geo-IPfree [...] rt.cpan.org
Content-Transfer-Encoding: 7bit
From: Laurent Domisse <domisse [...] w3perl.com>
X-RT-Original-Encoding: ISO-8859-1
Content-Length: 2344
Download (untitled) / with headers
text/plain 2.2k
Hello, I'm using GeoIPfree 0.6 on my Mandriva 2008.0 (perl 5.8.8). I have the following warning : Use of uninitialized value in length at /usr/lib/perl5/site_perl/5.8.8/Geo/IPfree.pm line 223. In IPfree.pm , line 223 is inside the Faster call : sub Faster { my $this = shift; seek( $this->{ handler }, 0, 0 ); ## Fix bug on Perl 5.6.0 seek( $this->{ handler }, $this->{ start }, 0 ); 1 while ( read( $this->{ handler }, $this->{ DB }, 1024 * 4, length( $this->{ DB } ) ) ##################### Line 223 ); $this->{ DB_SIZE } = length( $this->{ DB } ); memoize( 'dec2baseX' ); memoize( 'baseX2dec' ); $this->{ FASTER } = 1; } My code is : #!/usr/bin/perl $geoip_free = 1; &check_module("Geo::IPfree","Can't resolve IP address","Get country code from IP using GeoIPfree"); &init_geoipfree; sub check_module { local($module,$msg,$fonction) = @_; eval("use $module"); if ($@) { $msg = "\n$module module missing : $msg !\n\n"; $msg .= "1) If you want to install the $module module : \n"; if ($nt == 1) { $msg .= " Go to your Perl installation path (usually C:\Perl) and type :\n"; $msg .= "'ppm'\n"; $msg .= "At the prompt 'PPM>' type :\n"; $msg .= "'install $module'\n\n"; } if ($nt == 0) { $msg .= " Use CPAN to download the required modules, type :\n"; $msg .= "'perl -MCPAN -e shell'\n"; $msg .= "At the prompt 'cpan>' type :\n"; $msg .= "'install $module'\n\n"; } if ($spip == 1) { $msg .= "Then the module according to your database\n"; $msg .= "'install DBD-mysql'\n"; $msg .= "(for mysql database)\n"; } $msg .= "2) or you can choose to disable '$fonction' in your configuration file\n"; &error_exit($msg); } else { # require $module; if ($enable_email == 1) { require MIME::Lite; } if ($netgeo == 1) { require Geo::IP; } if ($geoip_free == 1) { require Geo::IPfree; } } } sub init_geoipfree { my $GeoIP = Geo::IPfree->new(); ## Using the default DB! $GeoIP->Faster; } If I comment $GeoIP->Faster;, no more warning. GeoIPfree works fine except this warning....thanks for the module ! Laurent
MIME-Version: 1.0
In-Reply-To: <4AA3FB4A.8010503 [...] w3perl.com>
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Content-Disposition: inline
Charset: utf8
References: <4AA3FB4A.8010503 [...] w3perl.com>
Content-Type: text/plain
Message-ID: <rt-3.6.HEAD-27252-1252452137-1068.49468-0-0 [...] rt.cpan.org>
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
Content-Length: 174
Download (untitled) / with headers
text/plain 174b
This issue should be fixed in the following commit: http://github.com/bricas/geo-ipfree/commit/7b405dfb11d0441a3c79bb17c1d129c416e98c04 It will show up in the next release.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.