=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libterm-readline-perl-perl-1.0303/ReadLine/Perl.pm-12- #$loaded = defined &Term::ReadKey::ReadKey; libterm-readline-perl-perl-1.0303/ReadLine/Perl.pm:13: #print STDOUT "\nrl=`$in', loaded = `$loaded'\n"; libterm-readline-perl-perl-1.0303/ReadLine/Perl.pm-14- #if (ref \$in eq 'GLOB') { # Bug under debugger ############################################## libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-1233- } elsif ($key =~ s#^\\x([0-9a-fA-F]{2})##) { libterm-readline-perl-perl-1.0303/ReadLine/readline.pm:1234: push(@keys, eval('0x'.$1)); libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-1235- } elsif ($key =~ s#^\\([0-7]{3})##) { libterm-readline-perl-perl-1.0303/ReadLine/readline.pm:1236: push(@keys, eval('0'.$1)); libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-1237- } elsif ($key =~ s#^\\\*$##) { # JP: added ############################################## libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-1239- } elsif ($key =~ s#^\\([afnrtv])##) { libterm-readline-perl-perl-1.0303/ReadLine/readline.pm:1240: push(@keys, ord(eval(qq("\\$1")))); libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-1241- } elsif ($key =~ s#^\\d##) { ############################################## libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-2360- warn("Warning$InputLocMsg:\n". libterm-readline-perl-perl-1.0303/ReadLine/readline.pm:2361: " Invalid value `$val' for variable `$var'.\n". libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-2362- " Choose from [@selections].\n") if $^W; ############################################## libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-3509- libterm-readline-perl-perl-1.0303/ReadLine/readline.pm:3510: #print qq/\r\neval("\@matches = &$func(\$text, \$line, \$start)\n\r/;#DEBUG libterm-readline-perl-perl-1.0303/ReadLine/readline.pm:3511: #eval("\@matches = &$func(\$text, \$line, \$start);1") || warn "$@ "; libterm-readline-perl-perl-1.0303/ReadLine/readline.pm-3512- @matches = &$func($text, $line, $start); ############################################## libterm-readline-perl-perl-1.0303/test.pl-54-while ( defined ($_ = $term->readline($prompt, "exit")) ) { libterm-readline-perl-perl-1.0303/test.pl:55: $res = eval($_); libterm-readline-perl-perl-1.0303/test.pl-56- warn $@ if $@;