-
- # we use link(2) + unlink(2) since rename(2) may
- # inadvertently clobber if the "uniquefilename" part wasn't
- # actually unique.
- if (link($src, $dst)) { # success
- # unlink(2) may ENOENT from parallel invocation,
- # ignore it, but not other serious errors
- if (!unlink($src) and $! != ENOENT) {
- $lei->child_error(1, "E: unlink($src): $!");
- }
- $lei->{sto}->ipc_do('lms_mv_src', "maildir:$mdir",
+ if (rename_noreplace($src, $dst)) { # success
+ $self->{lms}->mv_src("maildir:$mdir",