X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FDXUtil.pm;h=f0e7a8ae00a341f04b5d35153b3a39a363a9b73f;hp=7288afb7d5deffa84d59734d445ff7cf2991a4cc;hb=d8d7d25e92a56847754a237166ca926adc2199ca;hpb=f63d598af3f797b56b8d5e23ec4ff5254192eee9

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 7288afb7..f0e7a8ae 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -448,7 +448,7 @@ sub is_latlong
 # is it an ip address?
 sub is_ipaddr
 {
-    return $_[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $_[0] =~ /^[0-9a-f:,]+$/;
+    return $_[0] =~ /^\d+\.\d+\.\d+\.\d+$/ || $_[0] =~  /^(?:[\da-f]{1,4}:|:)(?:\:[0-9a-f]{1,4}){1,6}/i ;
 }
 
 # is it a zulu time hhmmZ