RepoMirrors/mars
1
0
Fork 0
mirror of https://github.com/schoebel/mars synced 2025-02-19 05:27:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

marsadm: allow deletion of directories

Browse Source
This commit is contained in:
Thomas Schoebel-Theuer 2020-03-28 06:56:48 +01:00
parent b9f0f57a32
commit 80c70599c8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
userspace/marsadm
View File

@ -1232,6 +1232,8 @@ sub to_tmp {
sub set_link {
my ($src, $dst) = @_;
# safeguard trailing slashes
$dst =~ s:/$::;
my $dst_tmp = to_tmp($dst);
unlink($dst_tmp);
symlink($src, $dst_tmp) or ldie "cannot create symlink '$dst' -> '$src'\n";
@ -1272,10 +1274,11 @@ sub finish_links {
unlink($link_tmp);
next;
}
# allow replacement of directories with symlinks
rmdir($link) if -d $link;
unless (rename($link_tmp, $link)) {
lwarn "cannot finalize symlink '$link'\n";
}
if ($verbose) {
} elsif ($verbose) {
lprint "created symlink '$link' -> '$target'\n";
}
$count++;