Move git_rev_parse into Dgit.pm (renaming it from rev_parse

1 files changed, 5 insertions, 1 deletions

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 00b4aa5..2c9c9f9 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);