=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtest-diaginc-perl-0.008/lib/Test/DiagINC.pm-35- my ($perl) = $^X =~ /(.+)/; # $^X is internal how could it be tainted?! libtest-diaginc-perl-0.008/lib/Test/DiagINC.pm:36: `"$perl" -MCwd -le "print getcwd"`; libtest-diaginc-perl-0.008/lib/Test/DiagINC.pm-37-}; ############################################## libtest-diaginc-perl-0.008/t/leanload.t-22- unless ( $] < 5.008 ) { libtest-diaginc-perl-0.008/t/leanload.t:23: @::B_inc = split /\0/, `$^X t/lib/B_laced_INC_dump.pl`; libtest-diaginc-perl-0.008/t/leanload.t-24- } ############################################## libtest-diaginc-perl-0.008/t/taint.t-17-# we don't want to have the user deal with that libtest-diaginc-perl-0.008/t/taint.t:18:system( $^X => -T => -e => 'use warnings; use strict; exit 0' ); libtest-diaginc-perl-0.008/t/taint.t-19-if ($?) {