diff options
| author |  Shawn O. Pearce <spearce@spearce.org> | 2007-07-12 02:40:54 -0400 |
|---|---|---|
| committer | Shawn O. Pearce <spearce@spearce.org> | 2007-07-12 02:40:54 -0400 |
| commit | f31b6ff747afeb204299b7a67ce2ec59beb33b7d (patch) | |
| tree | 638c807ac0622dca1f19710b9499c058f88cd822 | |
| parent | git-gui: Include a space in Cygwin shortcut command lines (diff) | |
| parent | git-gui: Work around bad interaction between Tcl and cmd.exe on ^{tree} (diff) | |
| download | tgif-f31b6ff747afeb204299b7a67ce2ec59beb33b7d.tar.xz | |
Merge branch 'maint'
* maint:
git-gui: Work around bad interaction between Tcl and cmd.exe on ^{tree}
| -rw-r--r-- | lib/commit.tcl | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/commit.tcl b/lib/commit.tcl index dc7c88c601..3172d7cb60 100644 --- a/lib/commit.tcl +++ b/lib/commit.tcl @@ -258,7 +258,18 @@ proc commit_committree {fd_wt curHEAD msg} { # -- Verify this wasn't an empty change. # if {$commit_type eq {normal}} { - set old_tree [git rev-parse "$PARENT^{tree}"] + set fd_ot [open "| git cat-file commit $PARENT" r] + fconfigure $fd_ot -encoding binary -translation lf + set old_tree [gets $fd_ot] + close $fd_ot + + if {[string equal -length 5 {tree } $old_tree] + && [string length $old_tree] == 45} { + set old_tree [string range $old_tree 5 end] + } else { + error "Commit $PARENT appears to be corrupt" + } + if {$tree_id eq $old_tree} { info_popup {No changes to commit. |