projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix DXCIDR inet_pton calls
[spider.git]
/
perl
/
DXCIDR.pm
diff --git
a/perl/DXCIDR.pm
b/perl/DXCIDR.pm
index 506b9693ed9e54c49f2d8d3425ba4c2e62c7f10e..230920f97be01ebd77a8db69b052a9d01770e4d6 100644
(file)
--- a/
perl/DXCIDR.pm
+++ b/
perl/DXCIDR.pm
@@
-16,7
+16,7
@@
use DXUtil;
use DXLog;
use IO::File;
use File::Copy;
use DXLog;
use IO::File;
use File::Copy;
-use Socket qw(inet_pton inet_ntop);
+use Socket qw(
AF_INET AF_INET6
inet_pton inet_ntop);
our $active = 0;
our $badipfn = "badip";
our $active = 0;
our $badipfn = "badip";
@@
-128,7
+128,7
@@
sub _sort
my @in;
my @out;
for (@_) {
my @in;
my @out;
for (@_) {
- push @in, [inet_pton($_), split m|/|];
+ push @in, [inet_pton(
m|:|?AF_INET6:AF_INET,
$_), split m|/|];
}
@out = sort {$a->[0] <=> $b->[0]} @in;
return map { "$_->[1]/$_->[2]"} @out;
}
@out = sort {$a->[0] <=> $b->[0]} @in;
return map { "$_->[1]/$_->[2]"} @out;