#31 - Fix case when first encountered byte of metadata separator is false positive.

Author: bbkr

META6.json

@@ -1,6 +1,6 @@
 {
     "name" : "GeoIP2",
-    "version" : "1.1.3",
+    "version" : "1.1.4",
     "description" : "MaxMind GeoIP v2 databases reader.",
     "authors" : [ "Paweł bbkr Pabian" ],
     "auth": "zef:bbkr",

lib/GeoIP2.rakumod

@@ -144,12 +144,12 @@ method !read-metadata ( ) returns Hash {
         next unless $byte == 0xAB;
 
         # marker found, cursor will be positioned right after it
-        last if $!handle.read( $metadata-marker.elems ) == $metadata-marker;
+        last if $!handle.read( $metadata-marker.elems ) ~~ $metadata-marker;
 
         # marker not found, rewind cursor to previous position
         $!handle.seek( -$metadata-marker.elems, SeekFromCurrent );
     }
-    
+
     # decode metadata section into map structure
     return self!read-data( );
 }

t/00-reader.rakutest

@@ -22,7 +22,7 @@ lives-ok { $geo = GeoIP2.new( path => './t/databases/MaxMind-DB-test-decoder.mmd
 
 subtest 'metadata' => sub {
 
-    plan 13;
+    plan 14;
 
     is $geo.binary-format-version, v2.0, 'binary format version';
     is $geo.build-timestamp.Str, '2015-07-15T17:38:55Z', 'build timestamp';
@@ -40,6 +40,8 @@ subtest 'metadata' => sub {
     is $geo.record-size, 24, 'record size';
     is $geo.search-tree-size, 2370, 'search tree size';
 
+    lives-ok { GeoIP2.new( path => './t/databases/metadata-backtrack.mmdb' ) }, 'first encountered byte of separator is false positive';
+
 }
 
 subtest 'data types' => sub {

t/databases/metadata-backtrack.mmdb

@@ -0,0 +1 @@
+���MaxMind.com�[binary_format_major_version�[binary_format_minor_version�Kbuild_epochgj�Mdatabase_typeMGeoLite2-CityKdescription�BenUGeoLite2City databaseJip_version�IlanguagesBdeBenBesBfrBjaEpt-BRBruEzh-CNJnode_count�N�`Krecord_size�