Index: client/Makefile ================================================================== --- client/Makefile +++ client/Makefile @@ -33,11 +33,12 @@ mkdir teapot-client-tmp.vfs cp -r lib teapot-client.tcl teapot-client-tmp.vfs/ echo 'package require starkit' > teapot-client-tmp.vfs/main.tcl echo 'starkit::startup' >> teapot-client-tmp.vfs/main.tcl echo 'source $$starkit::topdir/teapot-client.tcl' >> teapot-client-tmp.vfs/main.tcl - ./teapot-client.tcl get teapot-client-tmp.vfs/ tcl tcl md5 fileutil vfs::zip + ./teapot-client.tcl get teapot-client-tmp.vfs/ tcl tcl md5 fileutil vfs::zip || \ + teapot-client get teapot-client-tmp.vfs/ tcl tcl md5 fileutil vfs::zip $(TCLKIT) support/sdx.kit wrap teapot-client-tmp.kit rm -rf teapot-client-tmp.vfs mv teapot-client-tmp.kit teapot-client.kit clean: Index: client/lib/teapotclient0.1/teapotclient.tcl ================================================================== --- client/lib/teapotclient0.1/teapotclient.tcl +++ client/lib/teapotclient0.1/teapotclient.tcl @@ -290,12 +290,12 @@ } elseif {[string match $limitos $arch_os]} { set isCompatOS 1 } else { foreach {teapot localvariants} [array get osTeapotToLocal] { foreach local $localvariants { - if {[string match $limitos $local] || [string match $local $limitos]} { - if {[string match $teapot $arch_os] || [string match $arch_os $teapot]} { + if {[string match -nocase $limitos $local] || [string match -nocase $local $limitos]} { + if {[string match -nocase $teapot $arch_os] || [string match -nocase $arch_os $teapot]} { set isCompatOS 1 break } } } @@ -306,17 +306,17 @@ } set isCompatCPU 0 if {$arch == "tcl"} { set isCompatCPU 1 - } elseif {[string match $limitcpu $arch_cpu]} { + } elseif {[string match -nocase $limitcpu $arch_cpu]} { set isCompatCPU 1 } else { foreach {teapot localvariants} [array get cpuTeapotToLocal] { foreach local $localvariants { - if {[string match $limitcpu $local] || [string match $local $limitcpu]} { - if {[string match $teapot $arch_cpu] || [string match $arch_cpu $teapot]} { + if {[string match -nocase $limitcpu $local] || [string match -nocase $local $limitcpu]} { + if {[string match -nocase $teapot $arch_cpu] || [string match -nocase $arch_cpu $teapot]} { set isCompatCPU 1 break } } }