===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              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-