projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix stupid unpad typo in dx command
[spider.git]
/
perl
/
DXCIDR.pm
diff --git
a/perl/DXCIDR.pm
b/perl/DXCIDR.pm
index b702d7b899c197f2647dd92da34d2efb3f502396..0a829bf1f474035eb73e42c85b381569b479d236 100644
(file)
--- a/
perl/DXCIDR.pm
+++ b/
perl/DXCIDR.pm
@@
-162,9
+162,10
@@
sub _sort
my @in;
my @out;
for (@_) {
my @in;
my @out;
for (@_) {
- push @in, [inet_pton(m|:|?AF_INET6:AF_INET, $_), split m|/|];
+ my @ip = split m|/|;
+ push @in, [inet_pton(m|:|?AF_INET6:AF_INET, $ip[0]), @ip];
}
}
- @out = sort {$a->[
0] <=> $b->[0
]} @in;
+ @out = sort {$a->[
1] cmp $b->[1
]} @in;
return map { "$_->[1]/$_->[2]"} @out;
}
return map { "$_->[1]/$_->[2]"} @out;
}