Track source-revision in Fetcher

tadzik · Aug 21, 2012 · 682dbf4 · 682dbf4
1 parent aefb75b
commit 682dbf4
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/Panda/Fetcher.pm b/lib/Panda/Fetcher.pm
@@ -36,6 +36,11 @@ class Panda::Fetcher does Pies::Fetcher {
                     shell "git clone -q $url $dest"
                         and die $p, "Failed cloning the repo";
                 }
+
+                indir $dest, {
+                    my $desc = qx{git describe --always --dirty}.chomp;
+                    $p.metainfo<source-revision> = $desc;
+                };
             }
             when 'local' {
                 for find(dir => $url).list {