Index: Externals/Eagle/lib/Eagle1.0/vendor.eagle ================================================================== --- Externals/Eagle/lib/Eagle1.0/vendor.eagle +++ Externals/Eagle/lib/Eagle1.0/vendor.eagle @@ -32,20 +32,22 @@ # namespace if this script actually ends up being evaluated in Tcl. # namespace eval ::Eagle { if {[isEagle]} then { proc checkForVendorQuiet { {name ""} } { - if {[info exists ::env(checkForVendorQuiet)]} then { - return true - } - - if {[string length $name] > 0} then { - set envVarName [appendArgs quiet [string toupper \ - [string index $name 0]] [string range $name 1 end]] - - if {[info exists ::env($envVarName)]} then { - return true + if {![interp issafe]} then { + if {[info exists ::env(checkForVendorQuiet)]} then { + return true + } + + if {[string length $name] > 0} then { + set envVarName [appendArgs quiet [string toupper \ + [string index $name 0]] [string range $name 1 end]] + + if {[info exists ::env($envVarName)]} then { + return true + } } } return false } @@ -465,15 +467,15 @@ set no(emitCombinedFlagsIfNone) 1 # # NOTE: Force use of the native library pre-loader when applicable. # - if {[isWindows]} then { + if {![interp issafe] && [isWindows]} then { set no(deleteSqliteImplicitNativeFiles) 1 set no(copySqliteImplicitNativeFiles) 1 } } } ############################################################################### ############################### END VENDOR CODE ############################### ###############################################################################