=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libmakefile-dom-perl-0.008/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libmakefile-dom-perl-0.008/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libmakefile-dom-perl-0.008/inc/Module/Install.pm-378-sub _read { ############################################## libmakefile-dom-perl-0.008/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libmakefile-dom-perl-0.008/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libmakefile-dom-perl-0.008/inc/Module/Install.pm-416-sub _write { ############################################## libmakefile-dom-perl-0.008/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libmakefile-dom-perl-0.008/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libmakefile-dom-perl-0.008/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libmakefile-dom-perl-0.008/inc/Module/Install/Makefile.pm-45-sub makemaker { libmakefile-dom-perl-0.008/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libmakefile-dom-perl-0.008/inc/Module/Install/Makefile.pm-47-} ############################################## libmakefile-dom-perl-0.008/inc/Test/Base.pm-425- my $spec = $self->spec; libmakefile-dom-perl-0.008/inc/Test/Base.pm:426: $spec = $self->_pre_eval($spec); libmakefile-dom-perl-0.008/inc/Test/Base.pm-427- my $cd = $self->block_delim; ############################################## libmakefile-dom-perl-0.008/inc/Test/More.pm-313- libmakefile-dom-perl-0.008/inc/Test/More.pm:314: my( $eval_result, $eval_error ) = _eval($code); libmakefile-dom-perl-0.008/inc/Test/More.pm-315- my $ok = $tb->ok( $eval_result, "require $module;" ); ############################################## libmakefile-dom-perl-0.008/inc/Test/More.pm-372- libmakefile-dom-perl-0.008/inc/Test/More.pm:373: my( $eval_result, $eval_error ) = _eval( $code, \@imports ); libmakefile-dom-perl-0.008/inc/Test/More.pm-374- my $ok = $tb->ok( $eval_result, "use $module;" ); ############################################## libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-304- while ( $Element = $Element->parent ) { libmakefile-dom-perl-0.008/lib/MDOM/Node.pm:305: return 1 if refaddr($self) == refaddr($Element); libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-306- } ############################################## libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-751- Scalar::Util::weaken( libmakefile-dom-perl-0.008/lib/MDOM/Node.pm:752: $_PARENT{refaddr($Element)} = $Node libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-753- ); ############################################## libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-759- Scalar::Util::weaken( libmakefile-dom-perl-0.008/lib/MDOM/Node.pm:760: $_PARENT{refaddr($Node->start)} = $Node libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-761- ) if $Node->start; libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-762- Scalar::Util::weaken( libmakefile-dom-perl-0.008/lib/MDOM/Node.pm:763: $_PARENT{refaddr($Node->finish)} = $Node libmakefile-dom-perl-0.008/lib/MDOM/Node.pm-764- ) if $Node->finish; ############################################## libmakefile-dom-perl-0.008/lib/MDOM/Element.pm-636- return 1 unless $Token->{_location}; libmakefile-dom-perl-0.008/lib/MDOM/Element.pm:637: next unless refaddr($Token) == refaddr($start); libmakefile-dom-perl-0.008/lib/MDOM/Element.pm-638- ############################################## libmakefile-dom-perl-0.008/lib/MDOM/Element.pm-700-# Operator overloads libmakefile-dom-perl-0.008/lib/MDOM/Element.pm:701:sub __equals { ref $_[1] and refaddr($_[0]) == refaddr($_[1]) } libmakefile-dom-perl-0.008/lib/MDOM/Element.pm-702-sub __nequals { !__equals(@_) } ############################################## libmakefile-dom-perl-0.008/t/lib/Test/Make/Base.pm-236- return if not $s; libmakefile-dom-perl-0.008/t/lib/Test/Make/Base.pm:237: return eval(qq{"$s"}); libmakefile-dom-perl-0.008/t/lib/Test/Make/Base.pm-238-}