diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2014-10-19 09:50:13 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2014-10-19 09:50:13 +0300 |
commit | 014b0852e307a32cbb6bf27a71d3541f89cc1e84 (patch) | |
tree | 70e9593bb25a968cdc02f4e9620e4cb9837a5b32 | |
parent | d8b056b5f2edea6a19ba3ebd7accc6892fa48908 (diff) | |
download | dnstools-014b0852e307a32cbb6bf27a71d3541f89cc1e84.tar.gz dnstools-014b0852e307a32cbb6bf27a71d3541f89cc1e84.tar.bz2 |
whoseip: set version 1.00
-rw-r--r-- | whoseip/Whoseip/DB.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/whoseip/Whoseip/DB.pm b/whoseip/Whoseip/DB.pm index a824491..0e63cdf 100644 --- a/whoseip/Whoseip/DB.pm +++ b/whoseip/Whoseip/DB.pm @@ -37,7 +37,7 @@ our @EXPORT_OK = ( qw(ipdb_open ipdb_lookup ipdb_insert our @EXPORT = qw(); -our $VERSION = "1.0"; +our $VERSION = "1.00"; my %ipv4_mask2len; my @ipv4_len2mask; @@ -775,6 +775,7 @@ sub ipdb_lookup_unlocked($$) { netmask => inet_ntoa(pack('N', $r->[1])), timestamp => $r->[2], ttl => time - $r->[2], + package => 'whoseip', version => $VERSION ); @res{keys %{$r->[4]}} = values %{$r->[4]} if (defined($r->[4]) and ref($r->[4]) eq 'HASH'); |