No Perl dependency for relative path calculation

[schwabrak.git] / tag-add

diff --git a/tag-add b/tag-add
index 60d144d731080c1d9cdb7334ebf6263dd179bb9e6b143fff4c4b020348344120..e6bf85d0f847f776a8431c6a89714808918676fe1d3fac06ab3522d72a364f55 100755 (executable)
--- a/tag-add
+++ b/tag-add
@@ -15,6 +15,8 @@ for tag ($@) {
     tag=$tag:a
     [[ -r $tag ]] || die Unknown tag
     mkdir -p issues/$issue/tags
-    ln -f -s `relpath $tag issues/$issue/tags` issues/$issue/tags/$tag:t
+    ln -f -s \
+        `cd issues/$issue/tags ; relative $tag:h`/$tag:t \
+        issues/$issue/tags/$tag:t
     git add issues/$issue/tags/$tag:t
 }