Diff

Differences From Artifact [6a56c0db7f]:

To Artifact [a0bff81028]:


44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
			} else {
				set ncode "900"
			}

			close $fd

			if {$keyIsHash} {
				set hash "__UNABLE_TO_COMPUTE_HASH__"
				catch {
					set hash [string tolower [sha1::sha1 -hex -file $tmpfile]]
				}
			} else {
				set hash $key
			}

			if {$ncode == "200" && $hash == $key} {
				file rename -force -- $tmpfile $file
			} else {







<
<
|
<







44
45
46
47
48
49
50


51

52
53
54
55
56
57
58
			} else {
				set ncode "900"
			}

			close $fd

			if {$keyIsHash} {


				set hash [string tolower [sha1::sha1 -hex -file $tmpfile]]

			} else {
				set hash $key
			}

			if {$ncode == "200" && $hash == $key} {
				file rename -force -- $tmpfile $file
			} else {