Differences From Artifact [ddb6656dc1]:

• File main.tcl — part of check-in [1384012f07] at 2014-01-25 06:57:06 on branch trunk — Updated to cleanup at any exit point (user: rkeene, size: 3286) [annotate] [blame] [check-ins using]

To Artifact [13c7187af2]:

• File main.tcl — part of check-in [e2aa9dcf13] at 2014-01-25 07:06:15 on branch trunk — Made smaller Tcl error (user: rkeene, size: 3278) [annotate] [blame] [check-ins using]

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

	set exit 0
} err]} {
	if {$npf_failed} {
		puts "NPF Failed: $npf_err"
	}

	puts "Failed: $::errorInfo"

	set exit 1
}


# Cleanup
catch {

|

135
136
137
138
139
140
141
142
143
144
145
146
147
148
149

	set exit 0
} err]} {
	if {$npf_failed} {
		puts "NPF Failed: $npf_err"
	}

	puts "Failed: $err"

	set exit 1
}


# Cleanup
catch {