No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
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 $!";
complete_file_from_dsc('.', $fi)
or next;
- link $f, "../../../../$f"
+ link $f, $upper_f
or $!==&EEXIST
or die "$f $!";
}