===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libje-perl-0.066/Changes-175- the caller has warnings disabled. (E.g.,
libje-perl-0.066/Changes:176: no warnings; if($je->eval('a.b') eq $squit){...}
libje-perl-0.066/Changes-177- no longer warns if $squit is undef.)
##############################################
libje-perl-0.066/lib/JE/Code.pm-186- &{$$code{sub} =
libje-perl-0.066/lib/JE/Code.pm:187: eval{ eval("sub{$$code{psrc}}")||die }
libje-perl-0.066/lib/JE/Code.pm-188- || die "Internal error that should never"
##############################################
libje-perl-0.066/lib/JE/Object/RegExp.pm-191-# But it would be nice if this would work:
libje-perl-0.066/lib/JE/Object/RegExp.pm:192:# $j->eval("'\x{10000}'") =~ $j->eval('/../')
libje-perl-0.066/lib/JE/Object/RegExp.pm-193-# ~~~ We might be able to make this work with perl 5.12’s qr overloading.
##############################################
libje-perl-0.066/lib/JE/Parser.pm-1765-
libje-perl-0.066/lib/JE/Parser.pm:1766:=item $p->eval($code)
libje-perl-0.066/lib/JE/Parser.pm-1767-
##############################################
libje-perl-0.066/lib/JE.pm-781-
libje-perl-0.066/lib/JE.pm:782:=item $j->eval( $code, $filename, $lineno )
libje-perl-0.066/lib/JE.pm-783-
##############################################
libje-perl-0.066/lib/JE.pm-2102- taint($code = "String.length");
libje-perl-0.066/lib/JE.pm:2103: $foo = 0 + new JE ->eval($code); # $foo is now tainted
libje-perl-0.066/lib/JE.pm-2104-
##############################################
libje-perl-0.066/t/11.01-primary-expressions.t-26- # line of the here-doc (or something like that).
libje-perl-0.066/t/11.01-primary-expressions.t:27:defined $j->eval( <<'--end--', __FILE__, $line ) or die;
libje-perl-0.066/t/11.01-primary-expressions.t-28-
##############################################
libje-perl-0.066/t/12-statements.t-390- lvalue function, which requires a dirty trick: */
libje-perl-0.066/t/12-statements.t:391:var lfunc = peval('my $o = $je->upgrade({}); ' +
libje-perl-0.066/t/12-statements.t-392- 'sub{ $je->{m} .= "lhs"; new JE::LValue $o, "p"}')
##############################################
libje-perl-0.066/t/12-statements.t-757-is_eval('3;try{}catch(_){}', 3, 'try returning nothing')
libje-perl-0.066/t/12-statements.t:758:is_eval('3;try{throw 3}catch($){}', 3,'try-catch returning nothing')
libje-perl-0.066/t/12-statements.t:759:is_eval('3;attempt:try{throw 3}catch($){}finally{3;break attempt}', 3,
libje-perl-0.066/t/12-statements.t-760- 'finally returning nothing')
##############################################
libje-perl-0.066/t/15.01.02-global-functions.t-35-$catched = false;
libje-perl-0.066/t/15.01.02-global-functions.t:36:try { eval('Y@#%*^@#%*(^$') }
libje-perl-0.066/t/15.01.02-global-functions.t-37-catch(phrase) { phrase instanceof SyntaxError && ($catched = true) }
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-37-
libje-perl-0.066/t/15.10-regexp-objects.t:38:/(.)/.exec("oo"); is(RegExp.$1, "o", '$1 after exec')
libje-perl-0.066/t/15.10-regexp-objects.t-39-"abcdefg".search(/(.)/); is(RegExp.$1, "a", '$1 after search')
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-86- isnt(
libje-perl-0.066/t/15.10-regexp-objects.t:87: peval("($::other_je ||= new JE)->{RegExp}{'" + i + "'}"), RegExp[i],
libje-perl-0.066/t/15.10-regexp-objects.t-88- i + ' is not shared between envs'
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-384-is(' !"#$%&\'()*+,-./;:<=>?@[\\]^_`{|}~¡¢£·'.match(
libje-perl-0.066/t/15.10-regexp-objects.t:385: /\ \!\"\#\$\%\&\'\(\)\*\+\,\-\.\/\;\:\<\=\>\?\@\[\\\]\^\_\`\{\|\}\~\¡\¢\£\·/), ' !"#$%&\'()*+,-./;:<=>?@[\\]^_`{|}~¡¢£·','IdentityEscapes')
libje-perl-0.066/t/15.10-regexp-objects.t-386-is(' \n.\ud801'.match('\\ \\\n\\.\\\ud801'), ' \n.\ud801',
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-1004-// ( ?...) is deprecated in 5.18 and an error in 5.20
libje-perl-0.066/t/15.10-regexp-objects.t:1005:try{peval('$]')>=5.017&&skip('Perl version >= 5.17',8)
libje-perl-0.066/t/15.10-regexp-objects.t-1006- // You can’t put regexp literals here because they will cause com-
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-1049-
libje-perl-0.066/t/15.10-regexp-objects.t:1050:try{peval('$]')<5.01&&skip('Perl version < 5.10',20)
libje-perl-0.066/t/15.10-regexp-objects.t-1051- // You can’t put regexp literals here because they will cause com-
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-1087- // ( ?...) is deprecated in 5.18 and an error in 5.20
libje-perl-0.066/t/15.10-regexp-objects.t:1088: try{peval('$]')>=5.017&&skip('Perl version >= 5.17',9)
libje-perl-0.066/t/15.10-regexp-objects.t-1089- is(RegExp('foo( ?0)?bar','x').exec('phoofoofoobarbarbarr'),
##############################################
libje-perl-0.066/t/15.10-regexp-objects.t-1146-function PerlRegExp(re) {
libje-perl-0.066/t/15.10-regexp-objects.t:1147: return peval('new JE::Object::RegExp $je, qr/${\\shift}/',re)
libje-perl-0.066/t/15.10-regexp-objects.t-1148- // ~~~ (This constructor doesn’t currently support qr//'s. It
##############################################
libje-perl-0.066/t/je-object-boolean.t-124- my $code = $_[1];
libje-perl-0.066/t/je-object-boolean.t:125: $_[2] = sub {$global->upgrade(eval($code))};
libje-perl-0.066/t/je-object-boolean.t-126- },