summaryrefslogtreecommitdiff
path: root/Debian
diff options
context:
space:
mode:
authorIan Jackson <ijackson@chiark.greenend.org.uk>2015-05-17 14:14:32 +0100
committerIan Jackson <ijackson@chiark.greenend.org.uk>2015-05-31 11:54:14 +0100
commitaed6363944c70f718835f908ce97ecd5b309e998 (patch)
treed4e18891ef5392a645a2f1c4081b2049334961b2 /Debian
parentae4dea507387c90a796e2a752a717f8bc5ed1dae (diff)
Dgit.pm: Add debugging to git_for_each_...
Diffstat (limited to 'Debian')
-rw-r--r--Debian/Dgit.pm15
1 files changed, 13 insertions, 2 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index e8d2608..49cc073 100644
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -41,6 +41,11 @@ our $branchprefix = 'dgit';
sub NOFFCHECK () { return 0x2; }
sub FRESHREPO () { return 0x4; }
+sub printdebug;
+sub shellquote;
+sub printcmd;
+sub debugcmd;
+
sub debiantag ($) {
my ($v) = @_;
$v =~ y/~:/_%/;
@@ -62,9 +67,13 @@ sub git_for_each_ref ($$) {
# calls $func->($objid,$objtype,$fullrefname,$reftail);
# $reftail is RHS of ref after refs/\w+/
# breaks if $pattern matches any ref `refs/blah' where blah has no `/'
- open GFER, "-|", qw(git for-each-ref), $pattern or die $!;
+ my @cmd = (qw(git for-each-ref), $pattern);
+ open GFER, "-|", @cmd or die $!;
+ debugcmd "|", @cmd;
while (<GFER>) {
- m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))\s# or die "$_ ?";
+ chomp or die "$_ ?";
+ printdebug "|> ", $_, "\n";
+ m#^(\w+)\s+(\w+)\s+(refs/\w+/(\S+))$# or die "$_ ?";
$func->($1,$2,$3,$4);
}
$!=0; $?=0; close GFER or die "$pattern $? $!";
@@ -73,6 +82,8 @@ sub git_for_each_ref ($$) {
sub git_for_each_tag_referring ($$) {
my ($objreferring, $func) = @_;
# calls $func->($objid,$fullrefname,$tagname);
+ printdebug "git_for_each_tag_referring ",
+ ($objreferring // 'UNDEF'),"\n";
git_for_each_ref('refs/tags', sub {
my ($objid,$objtype,$fullrefname,$tagname) = @_;
next unless $objtype eq 'tag';