=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-1251- } elsif ($key =~ s#^\\x([0-9a-fA-F]{2})##) { libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm:1252: push(@keys, eval('0x'.$1)); libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-1253- } elsif ($key =~ s#^\\([0-7]{3})##) { libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm:1254: push(@keys, eval('0'.$1)); libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-1255- } elsif ($key =~ s#^\\\*$##) { # JP: added ############################################## libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-1257- } elsif ($key =~ s#^\\([afnrtv])##) { libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm:1258: push(@keys, ord(eval(qq("\\$1")))); libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-1259- } elsif ($key =~ s#^\\d##) { ############################################## libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-2511- warn("Warning$InputLocMsg:\n". libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm:2512: " Invalid value `$val' for variable `$var'.\n". libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-2513- " Choose from [@selections].\n") if $^W; ############################################## libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-3662- libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm:3663: #print qq/\r\neval("\@matches = &$func(\$text, \$line, \$start)\n\r/;#DEBUG libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm:3664: #eval("\@matches = &$func(\$text, \$line, \$start);1") || warn "$@ "; libterm-readline-ttytter-perl-1.4/ReadLine/readline_ttytter.pm-3665- @matches = &$func($text, $line, $start); ############################################## libterm-readline-ttytter-perl-1.4/test.pl-63-while ( defined ($_ = $term->readline($prompt, "exit")) ) { libterm-readline-ttytter-perl-1.4/test.pl:64: $res = eval($_); libterm-readline-ttytter-perl-1.4/test.pl-65- warn $@ if $@;