dgit: New relative path handling: debugging output

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

1 files changed, 4 insertions, 0 deletions

diff --git a/dgit b/dgit
index 5fb018e..f33aab8 100755
--- 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!",