From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 10 Jan 2017 14:10:50 +0000 (+0000)
Subject: dgit: generate_commits_from_dsc: Introduce $upper_f
X-Git-Tag: archive/debian/3.1~7
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=f8b6719127ece2bdf5d26c85a5f35060a4222b70

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 eae6f24b..135abe5f 100755
--- 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$#;
+	my $upper_f = "../../../../$f";
 
 	printdebug "considering linking $f: ";
 
-	link_ltarget "../../../../$f", $f
+	link_ltarget $upper_f, $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;
 
-	link $f, "../../../../$f"
+	link $f, $upper_f
 	    or $!==&EEXIST
 	    or die "$f $!";
     }