projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
allow /32 etc in is_ipaddr
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 286f544b1bc017c00d612df26a927f893a85338b..d23c27cfa5e3d73e4d3c21fae04aef16d6d08a9e 100644
(file)
--- 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])) {