===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libnet-write-perl-1.10/lib/Net/Write/Layer.pm-319-
libnet-write-perl-1.10/lib/Net/Write/Layer.pm:320:   my $saddr = nw_getsaddr($self->[$__dst], $self->[$__family], $self->[$__protocol])
libnet-write-perl-1.10/lib/Net/Write/Layer.pm-321-      or return _croak("@{[(caller(0))[3]]}: nw_getsaddr: error");
##############################################
libnet-write-perl-1.10/t/04-getsaddr.t-12-      my $saddr;
libnet-write-perl-1.10/t/04-getsaddr.t:13:      eval { $saddr = Net::Write::Layer::nw_getsaddr($ip6, NW_AF_INET6); };
libnet-write-perl-1.10/t/04-getsaddr.t-14-      if ($@) {
##############################################
libnet-write-perl-1.10/t/04-getsaddr.t-36-      my $saddr;
libnet-write-perl-1.10/t/04-getsaddr.t:37:      eval { $saddr = Net::Write::Layer::nw_getsaddr($ip4, NW_AF_INET); };
libnet-write-perl-1.10/t/04-getsaddr.t-38-      if ($@) {