Package: libnet-ip-perl
Version: 1.25-2
Hi,
Well, it's obvious from reading the code:
sub ip_reverse {
my ($ip, $len, $ip_version) = (@_);
[...]
if ($ip_version == 4) {
my @quads = split /\./, $ip;
my $no_quads = ($len / 8);
my @reverse_quads = reverse @quads;
while (@reverse_quads and $reverse_quads[0] == 0) {
shift(@reverse_quads);
}
return join '.', @reverse_quads, 'in-addr', 'arpa.';
No effort is made to actually respect $no_quads, so $len is useless.
Please fix it. TIA.
--
2. That which causes joy or happiness.
--
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]
