=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libxml-dt-perl-0.69/mkxmltype-35- if(not $class){ libxml-dt-perl-0.69/mkxmltype:36: push(@{$type{$q}}, (eval("[$c]") || "?$c")); libxml-dt-perl-0.69/mkxmltype-37- $elel{$q}++; ############################################## libxml-dt-perl-0.69/mkxmltype-50- libxml-dt-perl-0.69/mkxmltype:51: push(@{$type{$qcl}}, (eval("[$c]") || "?$c")); libxml-dt-perl-0.69/mkxmltype-52- $elel{$qcl}++; ############################################## libxml-dt-perl-0.69/mkxmltype-78- my $tmpfile = File::Temp->new( UNLINK => 0 )->filename; libxml-dt-perl-0.69/mkxmltype:79: system("head -$lines $fname | xmllint --recover - > $tmpfile"); libxml-dt-perl-0.69/mkxmltype-80- $fname = $tmpfile; ############################################## libxml-dt-perl-0.69/Changes-215- Solution: "use bytes" if we find it. libxml-dt-perl-0.69/Changes:216: eval("use bytes") if ($inc{bytes.pm}) { require and import...} libxml-dt-perl-0.69/Changes-217- ############################################## libxml-dt-perl-0.69/examples/makenewexample-16- libxml-dt-perl-0.69/examples/makenewexample:17:exec("vi $name"); ############################################## libxml-dt-perl-0.69/mkdtskel-19- my $tmpfile = File::Temp->new( UNLINK => 0 )->filename; libxml-dt-perl-0.69/mkdtskel:20: system("head -$lines $filename | xmllint --recover - > $tmpfile"); libxml-dt-perl-0.69/mkdtskel-21- $filename = $tmpfile;