===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
plsense-0.3.4/bin/plsense-worker-build-103- my $libopt = get_config("lib-path") ? "-I'".get_config("lib-path")."'" : "";
plsense-0.3.4/bin/plsense-worker-build:104: if ( system("$perl $libopt -c '$filepath' 2>/dev/null") ) {
plsense-0.3.4/bin/plsense-worker-build-105- logger->error("Failed compile '$filepath'");
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-371- MATCH:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:372: foreach my $addr ( $self->get_matched_route_list($regexp) ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-373- my $values = $routeh_of{ident $self}->{$addr};
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-387- ROUTE:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:388: foreach my $addr ( @routes ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-389- my $values = $routeh_of{ident $self}->{$addr} or next ROUTE;
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-403- ADDR:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:404: foreach my $addr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-405- my $resolves = $loadh->{$addr} or next ADDR;
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-421- ADDR:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:422: foreach my $addr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-423- my $members = $loadh->{$addr} or next ADDR;
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-436- ADDR:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:437: foreach my $addr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-438- my $resolves = $loadh->{$addr} or next ADDR;
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-454- ADDR:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:455: foreach my $addr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-456- my $members = $loadh->{$addr} or next ADDR;
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-474- ADDR:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:475: foreach my $addr ( keys %{$routeh_of{ident $self}} ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-476- my $commonkey = $self->get_address_common_part($addr) or next ADDR;
##############################################
plsense-0.3.4/lib/PlSense/AddressRouter.pm-614- PUSH_RESOLVED:
plsense-0.3.4/lib/PlSense/AddressRouter.pm:615: foreach my $raddr ( @{$raddrs} ) {
plsense-0.3.4/lib/PlSense/AddressRouter.pm-616- if ( $self->is_found_address_while_resolve($raddr) ) { next PUSH_RESOLVED; }
##############################################
plsense-0.3.4/lib/PlSense/Entity/Array.pm-60- ADDR:
plsense-0.3.4/lib/PlSense/Entity/Array.pm:61: foreach my $addr ( @{$addresses_of{ident $self}} ) {
plsense-0.3.4/lib/PlSense/Entity/Array.pm-62- $ret->push_address($addr);
##############################################
plsense-0.3.4/lib/PlSense/SubstituteBuilder.pm-88- VAR:
plsense-0.3.4/lib/PlSense/SubstituteBuilder.pm:89: foreach my $addr ( @$addresses ) {
plsense-0.3.4/lib/PlSense/SubstituteBuilder.pm-90- addrfinder->forward_methodindex;
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-350- ARG:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:351: foreach my $mtdaddr ( @addrs ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-352- if ( $mtdaddr !~ m{ ^(.+)\.W:([^.]+)$ }xms ) { next ARG; }
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-388- ARG:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:389: foreach my $mtdaddr ( @addrs ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-390- if ( $mtdaddr !~ m{ \A (.+)\.W:([^.]+?) \z }xms ) { next ARG; }
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-447- ARG:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:448: foreach my $mtdaddr ( @unargs ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-449- my $idxh = $unknownargh_of{ident $self}->{$mtdaddr};
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-512- RIGHTADDR:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:513: foreach my $rightaddr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-514- LEFTADDR:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:515: foreach my $leftaddr ( @{$loadh->{$rightaddr}} ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-516- $self->add_substitute_sentinel($leftaddr, $rightaddr);
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-533- MTDADDR:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:534: foreach my $mtdaddr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-535- IDX:
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-557- RIGHTADDR:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:558: foreach my $rightaddr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-559- my $substs = $substh_of{ident $self}->{$rightaddr};
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-561- LEFTADDR:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:562: foreach my $leftaddr ( @{$loadh->{$rightaddr}} ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-563- my $idx = firstidx { $_ eq $leftaddr } @{$substs};
##############################################
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-596- MTDADDR:
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm:597: foreach my $mtdaddr ( keys %$loadh ) {
plsense-0.3.4/lib/PlSense/SubstituteKeeper.pm-598- my $lidxh = $loadh->{$mtdaddr};