dgit: generate_commits_from_dsc: Introduce $upper_f

No functional change.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/dgit b/dgit
index eae6f24bde3895f21cf05a7b0e62869b24c821b9..135abe5fd1b69291af30d5b2740840c01bbe797c 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -2070,10 +2070,11 @@ sub generate_commits_from_dsc () {
     foreach my $fi (@dfi) {
        my $f = $fi->{Filename};
        die "$f ?" if $f =~ m#/|^\.|\.dsc$|\.tmp$#;
     foreach my $fi (@dfi) {
        my $f = $fi->{Filename};
        die "$f ?" if $f =~ m#/|^\.|\.dsc$|\.tmp$#;

+       my $upper_f = "../../../../$f";

 
        printdebug "considering linking $f: ";
 
 
        printdebug "considering linking $f: ";
 

-       link_ltarget "../../../../$f", $f
+       link_ltarget $upper_f, $f

            or ((printdebug "($!) "), 0)
            or $!==&ENOENT
            or die "$f $!";
            or ((printdebug "($!) "), 0)
            or $!==&ENOENT
            or die "$f $!";


@@ -2083,7 +2084,7 @@ sub generate_commits_from_dsc () {
        complete_file_from_dsc('.', $fi)
            or next;
 
        complete_file_from_dsc('.', $fi)
            or next;
 

-       link $f, "../../../../$f"
+       link $f, $upper_f

            or $!==&EEXIST
            or die "$f $!";
     }
            or $!==&EEXIST
            or die "$f $!";
     }