| Subject: | Net::Whois::Raw makes invalid assumptions |
Net::Whois::Raw seems to assume that the only objects available from a
whois request are domains and IP addresses and will die if you pass it
a text string without a dot. Whois servers has other objects, such as
contacts and organization handles. The problem appears to reside in
this method:
sub split_domname {
my ($dom) = @_;
my $tld = get_dom_tld( $dom );
my $name;
if (uc$tld eq 'IP') {
$name = $dom;
} else {
$dom =~ /(.+?)\.$tld$/ or die "Can't match $tld in $dom";
$name = $1;
}
return ($name, $tld);
}
Or am I completely off here...?