Update for systems that do not provide the environment variable OS

JimLewis · JimLewis · commit 4fd81f39f3d3 · 2025-03-10T21:02:13.000-07:00
diff --git a/OsvvmScriptsCore.tcl b/OsvvmScriptsCore.tcl
@@ -490,8 +490,10 @@ proc OpenBuildHtml {{BuildName ""}} {
 }
 
 proc DefaultVendor_OpenBuildHtml {BuildHtmlFile} {
-  if {[regexp {[Ww]indows} $::env(OS)]} {
-    exec {*}[auto_execok start] "$BuildHtmlFile"
+  if {[info exists ::env(OS)]} {
+    if {[regexp {[Ww]indows} $::env(OS)]} {
+      exec {*}[auto_execok start] "$BuildHtmlFile"
+    }
   }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -490,8 +490,10 @@ proc OpenBuildHtml {{BuildName ""}} {`
`490`	`490`	`}`
`491`	`491`
`492`	`492`	`proc DefaultVendor_OpenBuildHtml {BuildHtmlFile} {`
`493`		`- if {[regexp {[Ww]indows} $::env(OS)]} {`
`494`		`- exec {*}[auto_execok start] "$BuildHtmlFile"`
	`493`	`+ if {[info exists ::env(OS)]} {`
	`494`	`+ if {[regexp {[Ww]indows} $::env(OS)]} {`
	`495`	`+ exec {*}[auto_execok start] "$BuildHtmlFile"`
	`496`	`+ }`
`495`	`497`	`}`
`496`	`498`	`}`
`497`	`499`