=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libio-async-perl-0.77/lib/IO/Async/Loop.pm-2044- libio-async-perl-0.77/lib/IO/Async/Loop.pm:2045: foreach my $addr ( @$addrs ) { libio-async-perl-0.77/lib/IO/Async/Loop.pm-2046- my ( $family, $socktype, $proto, $address ) = IO::Async::OS->extract_addrinfo( $addr ); ############################################## libio-async-perl-0.77/lib/IO/Async/Resolver.pm-50- )->on_done( sub { libio-async-perl-0.77/lib/IO/Async/Resolver.pm:51: foreach my $addr ( @_ ) { libio-async-perl-0.77/lib/IO/Async/Resolver.pm-52- printf "http://www.example.com can be reached at " . ############################################## libio-async-perl-0.77/lib/IO/Async/Resolver.pm-608-register_resolver gethostbyname => sub { my @r = gethostbyname( $_[0] ) or die "$!\n"; @r }; libio-async-perl-0.77/lib/IO/Async/Resolver.pm:609:register_resolver gethostbyaddr => sub { my @r = gethostbyaddr( $_[0], $_[1] ) or die "$!\n"; @r }; libio-async-perl-0.77/lib/IO/Async/Resolver.pm-610- libio-async-perl-0.77/lib/IO/Async/Resolver.pm-611-register_resolver getnetbyname => sub { my @r = getnetbyname( $_[0] ) or die "$!\n"; @r }; libio-async-perl-0.77/lib/IO/Async/Resolver.pm:612:register_resolver getnetbyaddr => sub { my @r = getnetbyaddr( $_[0], $_[1] ) or die "$!\n"; @r }; libio-async-perl-0.77/lib/IO/Async/Resolver.pm-613-