diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2014-10-15 11:51:39 +0300 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2014-10-15 11:51:39 +0300 |
| commit | 47838ce50b0292ae0343d4a729f315d2a3fbf3a6 (patch) | |
| tree | d5ed5c20e89937dfbb75c6c530b26dd3da391116 | |
| parent | 158685efd66d762817a591384b769431f5ba0b2d (diff) | |
| download | dnstools-47838ce50b0292ae0343d4a729f315d2a3fbf3a6.tar.gz dnstools-47838ce50b0292ae0343d4a729f315d2a3fbf3a6.tar.bz2 | |
whoseip: minor change
* whoseip/Whoseip/DB.pm (LEAF_IDX): New constant
| -rw-r--r-- | whoseip/Whoseip/DB.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/whoseip/Whoseip/DB.pm b/whoseip/Whoseip/DB.pm index 1583390..83151e1 100644 --- a/whoseip/Whoseip/DB.pm +++ b/whoseip/Whoseip/DB.pm @@ -156,6 +156,8 @@ my $vminor = 0; use constant IPDB_PAGE_INDEX => 1; use constant IPDB_PAGE_LEAF => 2; +use constant LEAF_IDX => 256; + sub systell { sysseek($_[0], 0, SEEK_CUR) } =pod @@ -496,8 +498,8 @@ sub ipdb_lookup($$) { ++$n; next; } - return undef if (!$page->{tab}[256]); - $page = ipdb_cache_get($dbf, $page->{tab}[256]); + return undef if (!$page->{tab}[LEAF_IDX]); + $page = ipdb_cache_get($dbf, $page->{tab}[LEAF_IDX]); } foreach my $r (@{$page->{tab}}) { @@ -561,13 +563,13 @@ sub ipdb_insert { } } - if ($page->{tab}[256]) { - $page = ipdb_cache_get($dbf, $page->{tab}[256]); + if ($page->{tab}[LEAF_IDX]) { + $page = ipdb_cache_get($dbf, $page->{tab}[LEAF_IDX]); croak "$dbf->{filename}: index page found where leaf was expected" unless $page->{type} == IPDB_PAGE_LEAF; } else { my $p = ipdb_alloc_page($dbf, IPDB_PAGE_LEAF); - $page->{tab}[256] = $p->{off}; + $page->{tab}[LEAF_IDX] = $p->{off}; $page->{dirty} = 1; $page = $p; } |