Sort tags in version order

Author: puredanger

src/main/clojure/clojure/tools/gitlibs/impl.clj

@@ -174,10 +174,10 @@
           (throw (IOException. (str "Prefix not unique: " prefix))))))))
 
 (defn tags
-  "Fetch, then return all tags in the git dir. "
+  "Fetch, then return all tags in the git dir."
   [git-dir]
   (git-fetch (jio/file git-dir))
-  (let [{:keys [exit out err] :as ret} (run-git "--git-dir" git-dir "tag")]
+  (let [{:keys [exit out err] :as ret} (run-git "--git-dir" git-dir "tag" "--sort=v:refname")]
     (when-not (zero? exit)
       (throw (ex-info (format "Unable to get tags %s%n%s" git-dir err) ret)))
     (remove str/blank? (str/split-lines out))))