dgit: generate_commits_from_dsc: Introduce $upper_f
No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Ian Jackson
7 years ago
| 2069 | 2069 | foreach my $fi (@dfi) { |
| 2070 | 2070 | my $f = $fi->{Filename}; |
| 2071 | 2071 | die "$f ?" if $f =~ m#/|^\.|\.dsc$|\.tmp$#; |
| 2072 | my $upper_f = "../../../../$f"; | |
| 2072 | 2073 | |
| 2073 | 2074 | printdebug "considering linking $f: "; |
| 2074 | 2075 | |
| 2075 | link_ltarget "../../../../$f", $f | |
| 2076 | link_ltarget $upper_f, $f | |
| 2076 | 2077 | or ((printdebug "($!) "), 0) |
| 2077 | 2078 | or $!==&ENOENT |
| 2078 | 2079 | or die "$f $!"; |
| 2082 | 2083 | complete_file_from_dsc('.', $fi) |
| 2083 | 2084 | or next; |
| 2084 | 2085 | |
| 2085 | link $f, "../../../../$f" | |
| 2086 | link $f, $upper_f | |
| 2086 | 2087 | or $!==&EEXIST |
| 2087 | 2088 | or die "$f $!"; |
| 2088 | 2089 | } |