zebreus/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests 1 Activity

* Check for collissions.

Browse source
This commit is contained in:
Eelco Dolstra 2003-03-28 16:27:23 +00:00
parent 278ea4097e
commit 31f177ef0a
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/nix-populate
View file

@ -40,6 +40,9 @@ sub createLinks {
} }
-d $dstfile or die "$dstfile is not a directory"; -d $dstfile or die "$dstfile is not a directory";
createLinks($srcfile, $dstfile); createLinks($srcfile, $dstfile);
} elsif (-l $dstfile) {
my $target = readlink($dstfile);
die "collission between $srcfile and $target";
} else { } else {
print "linking $dstfile to $srcfile\n"; print "linking $dstfile to $srcfile\n";
symlink($srcfile, $dstfile) or symlink($srcfile, $dstfile) or