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