in reply to Error handle Net::Whois::Raw

my $dominfo;
my $onesuccess = eval { $dominfo = whois($list1); 1};
if( $onesuccess ){
    ...
} else {
  log("failed for { $list1 } : $@");
  next;
}

[download]

Replies are listed 'Best First'.
Re^2: Error handle Net::Whois::Raw
by Anonymous Monk on Apr 18, 2009 at 09:50 UTC 
    my $dominfo;
next unless eval { $dominfo = whois($list1); 1 };
...

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom