diff options
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 6 |
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); |