From: dbv <dbv@opencascade.com>
Date: Tue, 19 Nov 2013 08:38:50 +0000 (+0400)
Subject: 0024378: Empty "aTclHPath" variable when tcl headers are located at "/usr/include... 
X-Git-Tag: V6_7_1~12
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=b417fcd79d48819e57149375277a3c4b4511ce6b;p=occt-wok.git

0024378: Empty "aTclHPath" variable when tcl headers are located at "/usr/include/tcl8.6/"
Fix for empty "aTclHPath" variable
---

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"] } {