@EXPORT = qw(debiantag server_branch server_ref
stat_exists fail ensuredir waitstatusmsg failedcmd
cmdoutput cmdoutput_errok
@EXPORT = qw(debiantag server_branch server_ref
stat_exists fail ensuredir waitstatusmsg failedcmd
cmdoutput cmdoutput_errok
-sub git_for_each_ref ($$) {
- my ($pattern,$func) = @_;
+sub git_for_each_ref ($$;$) {
+ my ($pattern,$func,$gitdir) = @_;
# calls $func->($objid,$objtype,$fullrefname,$reftail);
# calls $func->($objid,$objtype,$fullrefname,$reftail);
# breaks if $pattern matches any ref `refs/blah' where blah has no `/'
my @cmd = (qw(git for-each-ref), $pattern);
# breaks if $pattern matches any ref `refs/blah' where blah has no `/'
my @cmd = (qw(git for-each-ref), $pattern);
open GFER, "-|", @cmd or die $!;
debugcmd "|", @cmd;
while (<GFER>) {
chomp or die "$_ ?";
printdebug "|> ", $_, "\n";
open GFER, "-|", @cmd or die $!;
debugcmd "|", @cmd;
while (<GFER>) {
chomp or die "$_ ?";
printdebug "|> ", $_, "\n";
sub git_for_each_tag_referring ($$) {
my ($objreferring, $func) = @_;
# calls $func->($tagobjid,$refobjid,$fullrefname,$tagname);
sub git_for_each_tag_referring ($$) {
my ($objreferring, $func) = @_;
# calls $func->($tagobjid,$refobjid,$fullrefname,$tagname);