quilt fixup: quilt_fixup_linkorigs more debugging output

diff --git a/dgit b/dgit
index eaba82b4143d2babd6157f89c746184e55ee9a6d..f4e2abfb4c9998c5002fa6bd729cbd0ba7a377e3 100755 (executable)
--- 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);
     }