=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libsocket-perl-2.030/Socket.pm-630-This function performs the work of the legacy functions unpack_sockaddr_in(), libsocket-perl-2.030/Socket.pm:631:inet_ntoa(), gethostbyaddr() and getservbyport(). libsocket-perl-2.030/Socket.pm-632- ############################################## libsocket-perl-2.030/Socket.pm-1053- my @ret; libsocket-perl-2.030/Socket.pm:1054: foreach my $addr ( @addrs ) { libsocket-perl-2.030/Socket.pm-1055- foreach my $portspec ( @ports ) { ############################################## libsocket-perl-2.030/Socket.pm-1107- else { libsocket-perl-2.030/Socket.pm:1108: $node = gethostbyaddr( $inetaddr, $family ); libsocket-perl-2.030/Socket.pm-1109- if( !defined $node ) { ############################################## libsocket-perl-2.030/Socket.xs-468-* Bad Assumption 1: struct in_addr has no other fields libsocket-perl-2.030/Socket.xs:469:* than the s_addr (which is the field we care about libsocket-perl-2.030/Socket.xs-470-* in here, really). However, we can be fed either 4-byte ############################################## libsocket-perl-2.030/t/socketpair.t-45- sleep 1; # wait a little, it might have worked after all libsocket-perl-2.030/t/socketpair.t:46: system( "/bin/kill -f $parent; echo die $parent" ); libsocket-perl-2.030/t/socketpair.t-47- } ############################################## libsocket-perl-2.030/Changes-116- * Don't try to assert the result of getnameinfo() to match libsocket-perl-2.030/Changes:117: gethostbyaddr() or getservbyport() (RT77248) libsocket-perl-2.030/Changes-118- * Ensure that 'socktype' hint is always passed to getaddrinfo during