dgit: dotdot_bpd_transfer_origs: Promote calculation of $dotdot

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

1 files changed, 3 insertions, 2 deletions

diff --git a/dgit b/dgit
index 4244991..ba70cea 100755
--- a/dgit
+++ b/dgit
@@ -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)) {
 	{