@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
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);