[PATCH] gitk: properly deal with tag names containing / (slash)

[~andy/git] / gitk

diff --git a/gitk b/gitk
index dab9df067eb1f575002ae2123e60869bfe5e7d7f..80544bfc538d3f750031057e5adb15e17b629a54 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -6149,11 +6149,7 @@ proc domktag {} {
        return
     }
     if {[catch {
-       set dir [gitdir]
-       set fname [file join $dir "refs/tags" $tag]
-       set f [open $fname w]
-       puts $f $id
-       close $f
+       exec git tag $tag $id
     } err]} {
        error_popup "[mc "Error creating tag:"] $err"
        return