=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libwww-finger-perl-0.105/inc/YAML/Tiny.pm-469- my ($self, $array, $indent, $seen) = @_; libwww-finger-perl-0.105/inc/YAML/Tiny.pm:470: if ( $seen->{refaddr($array)}++ ) { libwww-finger-perl-0.105/inc/YAML/Tiny.pm-471- die "YAML::Tiny does not support circular references"; ############################################## libwww-finger-perl-0.105/inc/YAML/Tiny.pm-508- my ($self, $hash, $indent, $seen) = @_; libwww-finger-perl-0.105/inc/YAML/Tiny.pm:509: if ( $seen->{refaddr($hash)}++ ) { libwww-finger-perl-0.105/inc/YAML/Tiny.pm-510- die "YAML::Tiny does not support circular references"; ############################################## libwww-finger-perl-0.105/inc/YAML/Tiny.pm-616- }; libwww-finger-perl-0.105/inc/YAML/Tiny.pm:617: my $v = eval("$Scalar::Util::VERSION") || 0; libwww-finger-perl-0.105/inc/YAML/Tiny.pm-618- if ( $@ or $v < 1.18 ) { ############################################## libwww-finger-perl-0.105/inc/Module/Install/Fetch.pm-84- return if exists $args{size} and -s $file != $args{size}; libwww-finger-perl-0.105/inc/Module/Install/Fetch.pm:85: system($args{run}) if exists $args{run}; libwww-finger-perl-0.105/inc/Module/Install/Fetch.pm-86- unlink($file) if $args{remove}; ############################################## libwww-finger-perl-0.105/inc/Module/Install/Makefile.pm-45-sub makemaker { libwww-finger-perl-0.105/inc/Module/Install/Makefile.pm:46: ( @_ < 2 or $makemaker >= eval($_[1]) ) ? $makemaker : 0 libwww-finger-perl-0.105/inc/Module/Install/Makefile.pm-47-} ############################################## libwww-finger-perl-0.105/inc/Module/Install.pm-376-# Done in evals to avoid confusing Perl::MinimumVersion libwww-finger-perl-0.105/inc/Module/Install.pm:377:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libwww-finger-perl-0.105/inc/Module/Install.pm-378-sub _read { ############################################## libwww-finger-perl-0.105/inc/Module/Install.pm-414-# Done in evals to avoid confusing Perl::MinimumVersion libwww-finger-perl-0.105/inc/Module/Install.pm:415:eval( $] >= 5.006 ? <<'END_NEW' : <<'END_OLD' ); die $@ if $@; libwww-finger-perl-0.105/inc/Module/Install.pm-416-sub _write { ############################################## libwww-finger-perl-0.105/lib/WWW/Finger/Webfinger.pm-56- { libwww-finger-perl-0.105/lib/WWW/Finger/Webfinger.pm:57: $where .= " UNION " if length $where; libwww-finger-perl-0.105/lib/WWW/Finger/Webfinger.pm-58- $where .= sprintf('{ <%s> <%s> ?x . } ' ############################################## libwww-finger-perl-0.105/lib/WWW/Finger/_GenericRDF.pm-85- { libwww-finger-perl-0.105/lib/WWW/Finger/_GenericRDF.pm:86: $where .= " UNION " if length $where; libwww-finger-perl-0.105/lib/WWW/Finger/_GenericRDF.pm-87- $where .= sprintf('{ [] foaf:mbox <%s> ; <%s> ?x . } UNION { [] foaf:mbox_sha1sum <%s> ; <%s> ?x . }',