X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=d23c27cfa5e3d73e4d3c21fae04aef16d6d08a9e;hb=dc9a699965ba5a2e347a72d4ba8b0612f8adc63e;hp=286f544b1bc017c00d612df26a927f893a85338b;hpb=19241b6f37923a92a56bf7890a5126f30f9b9d05;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 286f544b..d23c27cf 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -457,6 +457,7 @@ sub is_latlong
 # is it an ip address?
 sub is_ipaddr
 {
+	$_[0] =~ s|/\d+$||;
 	if ($ptonok) {
 		if ($_[0] =~ /:/) {
 			if (inet_pton(AF_INET6, $_[0])) {