dgit: linkorigs: Fix error handling when bpd missing

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 7c63b86fd7edf8defcd9706e05b7b70f7d18f632..eca2303e86add5d5aa9677fc5cff529b97eddc81 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -292,6 +292,7 @@ sub dgit_privdir () {
 sub bpd_abs () {
     my $r = $buildproductsdir;
     $r = "$maindir/$r" unless $r =~ m{^/};
+    return $r;
 }
 
 sub branch_gdr_info ($$) {
@@ -5651,7 +5652,8 @@ sub unpack_playtree_linkorigs ($$) {
     my ($upstreamversion, $fn) = @_;
     # calls $fn->($leafname);
 
-    opendir QFD, bpd_abs();
+    my $bpd_abs = bpd_abs();
+    opendir QFD, $bpd_abs or fail "buildproductsdir: $bpd_abs: $!";
     while ($!=0, defined(my $b = readdir QFD)) {
        my $f = bpd_abs()."/".$b;
        {