dgit: New relative path handling: debugging output

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

diff --git a/dgit b/dgit
index 5fb018ed418a38b3e26398f67172210a85b6cd41..f33aab8c0838fb93a0c7357a19ad1fd1563f6df1 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -7018,6 +7018,7 @@ END
            fail f_ "lstat %s works but stat gives %s !", $here, $!;
        }
        fail f_ "stat %s: %s", $here, $! unless $! == ENOENT;
+       printdebug "not in bpd, $f ...\n";
        # $f does not exist in bpd, we need to transfer it
        my $there = $dscfn;
        $there =~ s{[^/]+$}{$f} or confess "$there ?";
@@ -7032,12 +7033,15 @@ END
                # abs2rel, despite its name, can take two relative paths
                $there = File::Spec->abs2rel($there,$buildproductsdir);
                # now $there is relative to bpd, great
+               printdebug "not in bpd, $f, abs2rel, $there ...\n";
            } else {
                $there = (dirname $maindir)."/$there_from_parent";
                # now $there is absoute
+               printdebug "not in bpd, $f, rel2rel, $there ...\n";
            }
        } elsif ($there =~ m#^/#) {
            # $there is absolute already
+           printdebug "not in bpd, $f, abs, $there ...\n";
        } else {
            fail f_
                "cannot import %s which seems to be inside working tree!",