1 # This file checks that the directory where TclCurl is going to be
2 # installed is actually in the auto_path variable, if it isn't it
5 set tclCurlDir [lindex $argv 0]
6 set initTclDir [lindex $argv 1]
7 set initFile [file join $tcl_library init.tcl]
8 if {[file writable $initFile]==0} exit
11 if {[lsearch $auto_path $tclCurlDir]==-1} {
12 set handle [open "$initFile" a]
13 puts $handle "\nlappend auto_path $tclCurlDir\n"