From b417fcd79d48819e57149375277a3c4b4511ce6b Mon Sep 17 00:00:00 2001 From: dbv Date: Tue, 19 Nov 2013 12:38:50 +0400 Subject: [PATCH] 0024378: Empty "aTclHPath" variable when tcl headers are located at "/usr/include/tcl8.6/" Fix for empty "aTclHPath" variable --- src/WOKsite/wok_deps.tcl | 1 + 1 file changed, 1 insertion(+) diff --git a/src/WOKsite/wok_deps.tcl b/src/WOKsite/wok_deps.tcl index ab356e9..a3b7c0a 100644 --- a/src/WOKsite/wok_deps.tcl +++ b/src/WOKsite/wok_deps.tcl @@ -228,6 +228,7 @@ proc wokdep:SearchTclTk {theErrInc theErrLib32 theErrLib64 theErrBin32 theErrBin if { [file exists "/usr/include/tcl8.6/tcl.h"] && [file exists "/usr/include/tcl8.6/tk.h" ] } { lappend ::CSF_OPT_INC "/usr/include/tcl8.6" + set aTclHPath "/usr/include/tcl8.6/tcl.h" } else { set aPath [wokdep:Preferred [glob -nocomplain -directory "$::PRODUCTS_PATH" -type d *{tcl}*] "$::VCVER" "$::ARCH" ] if { "$aPath" != "" && [file exists "$aPath/include/tcl.h"] && [file exists "$aPath/include/tk.h"] } { -- 2.39.5