Posted to tcl by de at Tue Jun 06 23:33:41 GMT 2023view pretty
set fd [open [file join [file dir [info script]] pkgIndex.tcl] w] puts $fd "error {from pkgIndex.tcl}" close $fd set auto_path [linsert $auto_path 0 [file dir [info script]]] catch {package require foo} puts bar