X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=dgit;fp=dgit;h=dd3b31c717a60ab0562420f3fce5f3a439a8d929;hb=51a525fdc552ff2d5f388c47b29c38784f2e5fa4;hp=944de8592418be52f5fae781bdf2447a4439f418;hpb=83af484ee17f5d18ee6a161b01aa0b546d8943cb;p=dgit.git

diff --git a/dgit b/dgit
index 944de859..dd3b31c7 100755
--- a/dgit
+++ b/dgit
@@ -6365,6 +6365,8 @@ END
 	$there =~ s#/+[^/]+$## or
 	    fail "import $dscfn requires ../$f, but it does not exist";
 	$there .= "/$f";
+	my $test = $there =~ m{^/} ? $there : "../$there";
+	stat $test or fail "import $dscfn requires $test, but: $!";
 	symlink $there, $here or fail "symlink $there to $here: $!";
 	progress "made symlink $here -> $there";
 #	print STDERR Dumper($fi);