diff options
| -rw-r--r-- | lib/commit.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/commit.tcl b/lib/commit.tcl index 7f459cd564..83b3d9d21b 100644 --- a/lib/commit.tcl +++ b/lib/commit.tcl @@ -161,7 +161,8 @@ The rescan will be automatically started now. # set files_ready 0 foreach path [array names file_states] { - switch -glob -- [lindex $file_states($path) 0] { + set s $file_states($path) + switch -glob -- [lindex $s 0] { _? {continue} A? - D? - |