Show tag dates in bench list-tags

raku-community-modules · Jun 22, 2014 · 390b19d · 390b19d
1 parent c2fa1bc
commit 390b19d
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/bench b/bench
@@ -247,9 +247,14 @@ multi MAIN ('list-tags', *@components) {
         # Find all tags known in this component
         %*ENV<GIT_DIR> = "$comp_dir/$bare";
         my @all-tags   = qx{git tag}.lines;
-        %*ENV<GIT_DIR>:delete;
 
-        say "    $_" for @all-tags;
+        for @all-tags -> $tag {
+            my $detect = "git show -s --format=%ct $tag^\{commit}";
+            my $commit-time = qqx{$detect};
+            my $date = DateTime.new(+$commit-time).Date;
+            say "    $date   $tag";
+        }
+        %*ENV<GIT_DIR>:delete;
     }
 }