* Check for collissions.

This commit is contained in:
Eelco Dolstra 2003-03-28 16:27:23 +00:00
parent 278ea4097e
commit 31f177ef0a

View file

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