Net::XWhois

Added/changed under lookup()

Original:
#APNIC forwarding kludge 08/06/2002 rwoodard
elsif ($self->{ Server } eq 'whois.apnic.net') {
$fw="whois.krnic.net" if ($self->{ Response
}=~/Allocated to KRNIC/misg );
$fw="whois.twnic.net" if ($self->{ Response
}=~/Allocated to TWNIC/misg );
}

Changed to:


elsif ($self->{ Server } eq 'whois.apnic.net') {
# $fw="whois.krnic.net" if ($self->{ Response
}=~/Allocated to KRNIC/misg );
$fw="whois.nic.or.kr" if ($self->{ Response
}=~/Allocated to KRNIC/misg );
$fw="whois.twnic.net" if ($self->{ Response
}=~/Allocated to TWNIC/misg );
$fw="whois.nic.ad.jp" if ($self->{ Response
}=~/JPNIC WHOIS Gateway at/misg );
}
elsif ($self->{ Server } eq 'whois.lacnic.net') {
$fw="whois.registro.br" if ($self->{ Response
}=~/whois.registro.br accepts only direct match
queries/misg );
}

After the change (and change from previous submission),
JP, KR, and Brazil lookups worked again.