[Rt-commit] r9413 - rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Mon Oct 22 21:31:06 2007
New Revision: 9413

Modified:
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP

Log:
* on error whois->query method returns list with undef element

Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP	Mon Oct 22 21:31:06 2007
@@ -34,7 +34,7 @@
     return;
 }
 
-my @query = $whois->query($q);
+my @query = grep defined, $whois->query($q);
 unless ( @query ) {
     $$error = loc("Unable to connect to whois server '[_1]'", $server);
     return;