X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCIDR.pm;h=0a829bf1f474035eb73e42c85b381569b479d236;hb=56b93915d65c299a5f2d2e555ee361c056773843;hp=b702d7b899c197f2647dd92da34d2efb3f502396;hpb=f208d56126fc1804fc3adb80a0e3ac7356e37d8d;p=spider.git

diff --git a/perl/DXCIDR.pm b/perl/DXCIDR.pm
index b702d7b8..0a829bf1 100644
--- a/perl/DXCIDR.pm
+++ b/perl/DXCIDR.pm
@@ -162,9 +162,10 @@ sub _sort
 	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;
 }