=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libsocket-getaddrinfo-perl-0.22/README-172- libsocket-getaddrinfo-perl-0.22/README:173: The optional `$flags' parameter is a bitfield containing `NI_*' libsocket-getaddrinfo-perl-0.22/README-174- constants. At least the following flags will be available: ############################################## libsocket-getaddrinfo-perl-0.22/README-196- libsocket-getaddrinfo-perl-0.22/README:197: The optional `$xflags' parameter is a bitfield containing `NIx_*' libsocket-getaddrinfo-perl-0.22/README-198- constants. These are a Perl-level extension to the API, to indicate ############################################## libsocket-getaddrinfo-perl-0.22/lib/Socket/GetAddrInfo/Emul.pm-234- my @ret; libsocket-getaddrinfo-perl-0.22/lib/Socket/GetAddrInfo/Emul.pm:235: foreach my $addr ( @addrs ) { libsocket-getaddrinfo-perl-0.22/lib/Socket/GetAddrInfo/Emul.pm-236- foreach my $portspec ( @ports ) { ############################################## libsocket-getaddrinfo-perl-0.22/lib/Socket/GetAddrInfo/Emul.pm-306- else { libsocket-getaddrinfo-perl-0.22/lib/Socket/GetAddrInfo/Emul.pm:307: $node = gethostbyaddr( $inetaddr, $family ); libsocket-getaddrinfo-perl-0.22/lib/Socket/GetAddrInfo/Emul.pm-308- if( !defined $node ) { ############################################## libsocket-getaddrinfo-perl-0.22/t/04Strict.t-47- '$res[0] protocol is 0 or IPPROTO_TCP' ); libsocket-getaddrinfo-perl-0.22/t/04Strict.t:48:is_sinaddr( $res[0]->{addr}, 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/04Strict.t-49- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/t/03Socket6api.t-50- '$res[2] is 0 or IPPROTO_TCP' ); libsocket-getaddrinfo-perl-0.22/t/03Socket6api.t:51:is_sinaddr( $res[3], 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/03Socket6api.t-52- '$res[3] is { "127.0.0.1", 80 }' ); ############################################## libsocket-getaddrinfo-perl-0.22/t/05emulation.t-106- '$res[0] protocol is 0 or IPPROTO_TCP' ); libsocket-getaddrinfo-perl-0.22/t/05emulation.t:107:is_sinaddr( $res[0]->{addr}, 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/05emulation.t-108- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/t/05emulation.t-133-# Probably "localhost" but we'd better ask the system to be sure libsocket-getaddrinfo-perl-0.22/t/05emulation.t:134:my $expect_host = gethostbyaddr( inet_aton( "127.0.0.1" ), AF_INET ); libsocket-getaddrinfo-perl-0.22/t/05emulation.t-135-defined $expect_host or $expect_host = "127.0.0.1"; ############################################## libsocket-getaddrinfo-perl-0.22/t/02getnameinfo.t-68-# Probably "localhost" but we'd better ask the system to be sure libsocket-getaddrinfo-perl-0.22/t/02getnameinfo.t:69:my $expect_host = gethostbyaddr( inet_aton( "127.0.0.1" ), AF_INET ); libsocket-getaddrinfo-perl-0.22/t/02getnameinfo.t-70-defined $expect_host or $expect_host = "127.0.0.1"; ############################################## libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-95- '$res[0] protocol is 0 or IPPROTO_TCP' ); libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t:96:is_sinaddr( $res[0]->{addr}, 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-97- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-101-is_err( $err, 0, '$err == 0 for host=127.0.0.1/service=80/socktype=STREAM' ); libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t:102:is_sinaddr( $res[0]->{addr}, 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-103- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-117- ok( scalar @res > 0, '@res has results' ); libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t:118: is_sinaddr( $res[0]->{addr}, undef, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-119- '$res[0] addr is "127.0.0.1"'); ############################################## libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-134- ok( scalar @res > 0, '@res has results' ); libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t:135: is_sinaddr( $res[0]->{addr}, undef, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-136- '$res[0] addr is "127.0.0.1"'); ############################################## libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-142- ok( scalar @res > 0, '@res has results' ); libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t:143: is_sinaddr( $res[0]->{addr}, undef, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-144- '$res[0] addr is "127.0.0.1"'); ############################################## libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-149- '$res[0] family is AF_INET' ); libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t:150:is_sinaddr( $res[0]->{addr}, 0, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/t/01getaddrinfo.t-151- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-95- '$res[0] protocol is 0 or IPPROTO_TCP' ); libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t:96:is_sinaddr( $res[0]->{addr}, 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-97- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-101-is_err( $err, 0, '$err == 0 for host=127.0.0.1/service=80/socktype=STREAM' ); libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t:102:is_sinaddr( $res[0]->{addr}, 80, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-103- '$res[0] addr is {"127.0.0.1", 0}' ); ############################################## libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-117- ok( scalar @res > 0, '@res has results' ); libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t:118: is_sinaddr( $res[0]->{addr}, undef, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-119- '$res[0] addr is "127.0.0.1"'); ############################################## libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-134- ok( scalar @res > 0, '@res has results' ); libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t:135: is_sinaddr( $res[0]->{addr}, undef, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-136- '$res[0] addr is "127.0.0.1"'); ############################################## libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-142- ok( scalar @res > 0, '@res has results' ); libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t:143: is_sinaddr( $res[0]->{addr}, undef, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-144- '$res[0] addr is "127.0.0.1"'); ############################################## libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-149- '$res[0] family is AF_INET' ); libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t:150:is_sinaddr( $res[0]->{addr}, 0, inet_aton( "127.0.0.1" ), libsocket-getaddrinfo-perl-0.22/.pc/no_network.patch/t/01getaddrinfo.t-151- '$res[0] addr is {"127.0.0.1", 0}' );