fix undef warning in Faster(); (RT #49468). added tests.

bricas · Sep 8, 2009 · 7b405df · 7b405df
1 parent c10c555
commit 7b405df
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -4,6 +4,7 @@ Revision history for Perl extension Geo::IPfree.
     - Removed webgeo2ipct.pl script as you can now download a suitable file
       straight from the web: http://software77.net/geo-ip/
     - Updated database: Tue Sep  8 06:40:01 2009 UTC
+    - Fix undef warning in Faster(); (RT #49468)
 
 0.6  Mon May 11 2009
     - fix awful - yet popular - usage of Geo::IPfree::new (RT #45192)

diff --git a/lib/Geo/IPfree.pm b/lib/Geo/IPfree.pm
@@ -107,8 +107,6 @@ sub LoadDB {
         Carp::croak( "Can't load database, blank or not there: $db_file" );
     }
 
-    $this->{ db } = $db_file;
-
     my ( $handler, $buffer );
     $buffer = 0;
     open( $handler, $db_file )
@@ -214,6 +212,9 @@ sub Faster {
 
     seek( $this->{ handler }, 0, 0 );                 ## Fix bug on Perl 5.6.0
     seek( $this->{ handler }, $this->{ start }, 0 );
+
+    $this->{ DB } = '';
+
     1 while (
         read(
             $this->{ handler },