=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libnet-frame-perl-1.21/Changes-10-1.19 Thu 17 May 13:59:33 CEST 2018 libnet-frame-perl-1.21/Changes:11: - bugfix: test 13 when DNS getHostIpv6Addr() returns an IPv4 mapped to an IPv6 address libnet-frame-perl-1.21/Changes-12- => https://rt.cpan.org/Ticket/Display.html?id=124780 ############################################## libnet-frame-perl-1.21/examples/resolv-ipv6.pl-6- libnet-frame-perl-1.21/examples/resolv-ipv6.pl:7:print getHostIpv6Addr('www.google.com')."\n"; ############################################## libnet-frame-perl-1.21/t/13-gethostsubs.t-15- sub { libnet-frame-perl-1.21/t/13-gethostsubs.t:16: my $ip = getHostIpv4Addr($host); libnet-frame-perl-1.21/t/13-gethostsubs.t-17- if ($ip =~ $ip4) { ############################################## libnet-frame-perl-1.21/t/13-gethostsubs.t-60- sub { libnet-frame-perl-1.21/t/13-gethostsubs.t:61: my $ip = getHostIpv6Addr($host); libnet-frame-perl-1.21/t/13-gethostsubs.t-62- if ($ip =~ $ip6 || $ip =~ $ip6v4mapping) {