===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              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 ";