quilt fixup: quilt_fixup_linkorigs more debugging output

1 files changed, 5 insertions, 0 deletions

diff --git a/dgit b/dgit
index eaba82b..f4e2abf 100755
--- a/dgit
+++ b/dgit
@@ -2779,7 +2779,12 @@ sub quilt_fixup_linkorigs ($$) {
 
     foreach my $f (<../../../../*>) { #/){
 	my $b=$f; $b =~ s{.*/}{};
+	{
+	    local ($debuglevel) = $debuglevel-1;
+	    printdebug "QF linkorigs $b, $f ?\n";
+	}
 	next unless is_orig_file $b, srcfn $upstreamversion,'';
+	printdebug "QF linkorigs $b, $f Y\n";
 	link_ltarget $f, $b or die "$b $!";
         $fn->($b);
     }