chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ae4dea5
)
Dgit.pm: Add debugging to git_for_each_...
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 17 May 2015 13:14:32 +0000
(14:14 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 31 May 2015 10:54:14 +0000
(11:54 +0100)
Debian/Dgit.pm
patch
|
blob
|
history
diff --git
a/Debian/Dgit.pm
b/Debian/Dgit.pm
index e8d2608aef09a5ab3ee04b33b1025ba149830a1a..49cc073391392dbeabf44fb3848200928ccb79ba 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-41,6
+41,11
@@
our $branchprefix = 'dgit';
sub NOFFCHECK () { return 0x2; }
sub FRESHREPO () { return 0x4; }
sub NOFFCHECK () { return 0x2; }
sub FRESHREPO () { return 0x4; }
+sub printdebug;
+sub shellquote;
+sub printcmd;
+sub debugcmd;
+
sub debiantag ($) {
my ($v) = @_;
$v =~ y/~:/_%/;
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 `/'
# 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>) {
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 $? $!";
$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);
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';
git_for_each_ref('refs/tags', sub {
my ($objid,$objtype,$fullrefname,$tagname) = @_;
next unless $objtype eq 'tag';