=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libtcl-perl-1.27+ds/Makefile.PL-112- libtcl-perl-1.27+ds/Makefile.PL:113: my $tclcfg = `$tclsh tclcfg.tcl`; libtcl-perl-1.27+ds/Makefile.PL-114- _die "error starting $tclsh: \$?=$?; \$!=$!\n" if $tclcfg eq ''; # can't check $?, BUG 133463 ############################################## libtcl-perl-1.27+ds/Makefile.PL-213- # you copy an archive file, so ensure ours it up-to-date libtcl-perl-1.27+ds/Makefile.PL:214: system("ranlib tcl-core/$arch/libtclstub8.4.a"); libtcl-perl-1.27+ds/Makefile.PL:215: system("git update-index --assume-unchanged tcl-core/$arch/libtclstub8.4.a") libtcl-perl-1.27+ds/Makefile.PL-216- if -d ".git"; ############################################## libtcl-perl-1.27+ds/t/info.t-19- my $cpath = $tcl->Eval("info nameofexecutable"); libtcl-perl-1.27+ds/t/info.t:20: $cpath = `cygpath -u '$cpath'`; libtcl-perl-1.27+ds/t/info.t-21- chomp($cpath); ############################################## libtcl-perl-1.27+ds/t/info.t-24- # see ticket 25822 libtcl-perl-1.27+ds/t/info.t:25: ok(canonpath($tcl->Eval("info nameofexecutable")), canonpath($^X)); libtcl-perl-1.27+ds/t/info.t-26-} ############################################## libtcl-perl-1.27+ds/t/info.t-30-ok($tclversion =~ /^8\.\d+$/); libtcl-perl-1.27+ds/t/info.t:31:ok(substr($tcl->Eval("info patchlevel"), 0, length($tclversion)), $tclversion); libtcl-perl-1.27+ds/t/info.t:32:ok(length($tcl->Eval("info patchlevel")) > length($tclversion)); ############################################## libtcl-perl-1.27+ds/t/result.t-25-# should always return "ok 2" libtcl-perl-1.27+ds/t/result.t:26:$i->Eval('if {[catch foo res]} {puts $res} else {puts "ok 2"}'); libtcl-perl-1.27+ds/t/result.t-27- ############################################## libtcl-perl-1.27+ds/t/var.t-11- print "$glob $loc\n"; libtcl-perl-1.27+ds/t/var.t:12: $interp->Eval('puts $four', Tcl::EVAL_GLOBAL); libtcl-perl-1.27+ds/t/var.t-13-} ############################################## libtcl-perl-1.27+ds/t/var.t-17-$i->SetVar("foo", "ok 1"); libtcl-perl-1.27+ds/t/var.t:18:$i->Eval('puts $foo'); libtcl-perl-1.27+ds/t/var.t-19-