.dsc and file handling: Add some debugging output

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 426aef2eebba1c24abb8a8e2b2522507c1fab6e8..0330552e3f4746f312f8de1f8eddaa3171d03fd4 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1828,10 +1828,15 @@ sub generate_commits_from_dsc () {
        my $f = $fi->{Filename};
        die "$f ?" if $f =~ m#/|^\.|\.dsc$|\.tmp$#;
 
+       printdebug "considering linking $f: ";
+
        link_ltarget "../../../$f", $f
+           or ((printdebug "($!) "), 0)
            or $!==&ENOENT
            or die "$f $!";
 
+       printdebug "linked.\n";
+
        complete_file_from_dsc('.', $fi)
            or next;
 
@@ -2210,6 +2215,7 @@ sub complete_file_from_dsc ($$) {
     if (stat_exists $tf) {
        progress "using existing $f";
     } else {
+       printdebug "$tf does not exist, need to fetch\n";
        my $furl = $dscurl;
        $furl =~ s{/[^/]+$}{};
        $furl .= "/$f";