=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libio-socket-inet6-perl-2.72/ChangeLog-147- * Patch from David Town <David.Town@marconi.com> libio-socket-inet6-perl-2.72/ChangeLog:148: - peeraddr(), sockaddr() methods implemented. libio-socket-inet6-perl-2.72/ChangeLog-149- - peerhost(), peerport(), sockhost(), sockport() improved efficiency. ############################################## libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-340-sub sockaddr { libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm:341: @_ == 1 or croak 'usage: $sock->sockaddr()'; libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-342- my ($sock) = @_; ############################################## libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-377-sub peeraddr { libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm:378: @_ == 1 or croak 'usage: $sock->peeraddr()'; libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-379- my ($sock) = @_; ############################################## libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-572- libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm:573:=item sockaddr () libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-574- ############################################## libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-597- libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm:598:=item peeraddr () libio-socket-inet6-perl-2.72/lib/IO/Socket/INET6.pm-599- ############################################## libio-socket-inet6-perl-2.72/t/io_multihomed6.t-101-my ($port,@srv); libio-socket-inet6-perl-2.72/t/io_multihomed6.t:102:for my $addr ( '127.0.0.1','::1' ) { libio-socket-inet6-perl-2.72/t/io_multihomed6.t-103- push @srv, ############################################## libio-socket-inet6-perl-2.72/t/io_udp6.t-91-print "not " libio-socket-inet6-perl-2.72/t/io_udp6.t:92: unless compare_addr($udpa->peername,$udpb->sockname, 'peername', 'sockname'); libio-socket-inet6-perl-2.72/t/io_udp6.t-93-print "ok 3\n"; libio-socket-inet6-perl-2.72/t/io_udp6.t-94- libio-socket-inet6-perl-2.72/t/io_udp6.t:95:my $where = $udpb->recv($buf="",5); libio-socket-inet6-perl-2.72/t/io_udp6.t-96-print $buf; ############################################## libio-socket-inet6-perl-2.72/t/io_udp6.t-99- libio-socket-inet6-perl-2.72/t/io_udp6.t:100:unless(compare_addr($where,$udpa->sockname, 'recv name', 'sockname')) { libio-socket-inet6-perl-2.72/t/io_udp6.t-101- print "not ";