git_for_each_tag_referring is_fast_fwd
$package_re $component_re $deliberately_re
$branchprefix
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
git_for_each_tag_referring is_fast_fwd
$package_re $component_re $deliberately_re
$branchprefix
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
# implicitly uses $main::us
%EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] );
@EXPORT_OK = @{ $EXPORT_TAGS{policyflags} };
# implicitly uses $main::us
%EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] );
@EXPORT_OK = @{ $EXPORT_TAGS{policyflags} };
- $d =~ m/^.*/;
- printdebug "=> \`$&'",(length $' ? '...' : ''),"\n" if $debuglevel>0; #';
+ if ($debuglevel > 0) {
+ $d =~ m/^.*/;
+ my $dd = $&;
+ my $more = (length $' ? '...' : ''); #');
+ $dd =~ s{[^\n -~]|\\}{ sprintf "\\x%02x", ord $& }ge;
+ printdebug "=> \`$dd'",$more,"\n";
+ }
-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);