Properly look for .origs etc. in .., fetching them less often.

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 426aef2eebba1c24abb8a8e2b2522507c1fab6e8..2e700813d7829368f8318a99ebe0795f95af9e90 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$#;
 
-       link_ltarget "../../../$f", $f
+       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";