Only delete files if no error
parent
a8dde207e1
commit
aaa6c5cccb
|
@ -483,7 +483,9 @@ sub MoveTo {
|
|||
$$self{Storage} = $NewStorage;
|
||||
$error .= $self->save();
|
||||
}
|
||||
$self->delete_files( $OldStorage );
|
||||
if ( ! $error ) {
|
||||
$self->delete_files( $OldStorage );
|
||||
}
|
||||
return $error;
|
||||
} # end sub MoveTo
|
||||
|
||||
|
|
Loading…
Reference in New Issue