gitk: Fix "git gui blame" invocation when called from top-level directory

diff --git a/gitk b/gitk
index 5f065457633b592ab83df192ad4bcdb27c006111..d5f0a88d78784accc3c45bea4fd02f98428b09b7 100755 (executable)
--- a/gitk
+++ b/gitk
@@ -3378,6 +3378,9 @@ proc index_sha1 {fname} {
 
 # Turn an absolute path into one relative to the current directory
 proc make_relative {f} {
+    if {[file pathtype $f] eq "relative"} {
+       return $f
+    }
     set elts [file split $f]
     set here [file split [pwd]]
     set ei 0