Unverified Commit 8075eb17 authored by Gavin Brown's avatar Gavin Brown
Browse files

in resolve(), accept an address family and use that to determine $type

parent cb914e98
......@@ -512,7 +512,9 @@ sub update_stats {
#
sub resolve {
my $name = lc(shift);
my $type = shift || 'A';
my $family = shift || 4;
my $type = (4 == $family ? 'A' : 'AAAA');
if (($name =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/ && 'A' eq $type) || ($name =~ /^[0-9a-f:]+$/i && 'AAAA' eq $type)) {
#
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment