Skip to content
Snippets Groups Projects
Commit 5cde57e9 authored by Andy Yates's avatar Andy Yates
Browse files

A symbolic link is a file

parent f8fee0c0
No related branches found
No related tags found
No related merge requests found
......@@ -179,13 +179,13 @@ sub _process_datafile {
}
else {
if(-e $target) {
if(-f $target) {
if(-h $target) {
unlink $target;
}
elsif(-f $target) {
my $id = $datafile->dbID();
die "Cannot unlink $target as it is a file and not a symbolic link. Datafile ID was $id";
}
elsif(-h $target) {
unlink $target;
}
}
$self->v("\tLinking %s -> %s", $filepath, $target);
symlink($filepath, $target) or die "Cannot symbolically link $filepath to $target: $!";
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment