X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=Debian%2FDgit.pm;h=2c9c9f91cae77d5214dd0819cb83f8c10ce1a4a0;hp=00b4aa5460869611a42436de52f4a3ffe53df8fc;hb=d3009c4371f9209cd6745caa5e422355ac6692a7;hpb=e6ce71a87a1ca14ce90fc78023725d9f3bec54ee

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 00b4aa54..2c9c9f91 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -18,7 +18,7 @@ BEGIN {
     @EXPORT      = qw(debiantag server_branch server_ref
                       stat_exists fail waitstatusmsg failedcmd
                       cmdoutput cmdoutput_errok
-                      git_for_each_ref
+                      git_rev_parse git_for_each_ref
                       git_for_each_tag_referring
                       $package_re $component_re $deliberately_re
                       $branchprefix
@@ -177,6 +177,10 @@ sub cmdoutput {
     return $d;
 }
 
+sub git_rev_parse ($) {
+    return cmdoutput qw(git rev-parse), "$_[0]~0";
+}
+
 sub git_for_each_ref ($$) {
     my ($pattern,$func) = @_;
     # calls $func->($objid,$objtype,$fullrefname,$reftail);