=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libforest-perl-0.10/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libforest-perl-0.10/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libforest-perl-0.10/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libforest-perl-0.10/inc/Module/Install/Makefile.pm-45-sub makemaker { libforest-perl-0.10/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libforest-perl-0.10/inc/Module/Install/Makefile.pm-47-} ############################################## libforest-perl-0.10/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libforest-perl-0.10/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libforest-perl-0.10/inc/Module/Install.pm-378-sub _read { ############################################## libforest-perl-0.10/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libforest-perl-0.10/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libforest-perl-0.10/inc/Module/Install.pm-416-sub _write { ############################################## libforest-perl-0.10/lib/Forest/Tree/Pure.pm-162- libforest-perl-0.10/lib/Forest/Tree/Pure.pm:163: if ( refaddr($transformed) == refaddr($targ) ) { libforest-perl-0.10/lib/Forest/Tree/Pure.pm-164- return $self; ############################################## libforest-perl-0.10/lib/Forest/Tree/Pure.pm-251- foreach my $sibling (@{ $self->children }) { libforest-perl-0.10/lib/Forest/Tree/Pure.pm:252: (refaddr($sibling) eq refaddr($child)) && return $index; libforest-perl-0.10/lib/Forest/Tree/Pure.pm-253- $index++; ############################################## libforest-perl-0.10/.pc/fix-pod-spelling.patch/lib/Forest/Tree/Pure.pm-162- libforest-perl-0.10/.pc/fix-pod-spelling.patch/lib/Forest/Tree/Pure.pm:163: if ( refaddr($transformed) == refaddr($targ) ) { libforest-perl-0.10/.pc/fix-pod-spelling.patch/lib/Forest/Tree/Pure.pm-164- return $self; ############################################## libforest-perl-0.10/.pc/fix-pod-spelling.patch/lib/Forest/Tree/Pure.pm-251- foreach my $sibling (@{ $self->children }) { libforest-perl-0.10/.pc/fix-pod-spelling.patch/lib/Forest/Tree/Pure.pm:252: (refaddr($sibling) eq refaddr($child)) && return $index; libforest-perl-0.10/.pc/fix-pod-spelling.patch/lib/Forest/Tree/Pure.pm-253- $index++;