diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2022-12-26 17:26:02 +0000 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2022-12-26 17:28:25 +0000 |
commit | d29b232c577f41113a5c99c54ae185e7794b4168 (patch) | |
tree | acd9c5047e54be781af005b61e5985d2526df8f9 | |
parent | d390dcb64263f319b1ebd63d2c823a8af31850e9 (diff) |
dgit: dotdot_bpd_transfer_origs: Promote calculation of $dotdot
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
-rwxr-xr-x | dgit | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -2263,11 +2263,12 @@ sub dotdot_bpd_transfer_origs ($$$) { # checks is_orig_file_of_vsn and if # calls $wanted->{$leaf} and expects boolish + my $dotdot = $maindir; + $dotdot =~ s{/[^/]+$}{}; + return if $buildproductsdir eq '..'; my $warned; - my $dotdot = $maindir; - $dotdot =~ s{/[^/]+$}{}; opendir DD, $dotdot or fail "opendir .. ($dotdot): $!"; while ($!=0, defined(my $leaf = readdir DD)) { { |