summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3eb5682)
raw | patch | inline | side by side (parent: 3eb5682)
author | Jens Lehmann <Jens.Lehmann@web.de> | |
Mon, 30 Mar 2009 18:35:57 +0000 (20:35 +0200) | ||
committer | Shawn O. Pearce <spearce@spearce.org> | |
Sun, 5 Apr 2009 19:45:40 +0000 (12:45 -0700) |
Before calling the post-commit hook, the variable "pc_err" is cleared
while later only "pch_error" is used. "pch_error$cmt_id" only appeared in
"upvar"-Statements (which were changed to "global") and was removed.
Signed-off-by: Jens Lehmann <Jens.Lehmann@web.de>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
while later only "pch_error" is used. "pch_error$cmt_id" only appeared in
"upvar"-Statements (which were changed to "global") and was removed.
Signed-off-by: Jens Lehmann <Jens.Lehmann@web.de>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
lib/commit.tcl | patch | blob | history |
diff --git a/lib/commit.tcl b/lib/commit.tcl
index 17aba914af701349da900deb908af9117c580672..7f459cd5647f690a5e48ed7c29fc0d75eef89d0c 100644 (file)
--- a/lib/commit.tcl
+++ b/lib/commit.tcl
#
set fd_ph [githook_read post-commit]
if {$fd_ph ne {}} {
- upvar #0 pch_error$cmt_id pc_err
- set pc_err {}
+ global pch_error
+ set pch_error {}
fconfigure $fd_ph -blocking 0 -translation binary -eofchar {}
fileevent $fd_ph readable \
[list commit_postcommit_wait $fd_ph $cmt_id]
}
proc commit_postcommit_wait {fd_ph cmt_id} {
- upvar #0 pch_error$cmt_id pch_error
+ global pch_error
append pch_error [read $fd_ph]
fconfigure $fd_ph -blocking 1