If we cannot hardlink origs into our extraction area, use symlinks instead.

[dgit.git] / Debian / Dgit.pm

diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm
index 1bac97bde55d02a5cc00e0ba388348f7f8537012..50e3b860a71ae409c6d803b1cd36788f7617e61a 100644 (file)
--- a/Debian/Dgit.pm
+++ b/Debian/Dgit.pm
@@ -289,7 +289,9 @@ sub link_ltarget ($$) {
     if (-l _) {
        $old = cmdoutput qw(realpath  --), $old;
     }
     if (-l _) {
        $old = cmdoutput qw(realpath  --), $old;
     }

-    link $old, $new or die "link $old $new: $!";
+    my $r = link $old, $new;
+    $r = symlink $old, $new if !$r && $!==EXDEV;
+    $r or die "(sym)link $old $new: $!";

 }
 
 sub hashfile ($) {
 }
 
 sub hashfile ($) {