ar: rename of temporary libary fails on some platforms

if the destination already exists, rename (tempname, archive) will fail, add unlink() first.

1 files changed, 5 insertions, 2 deletions

diff --git a/ar/ar.c b/ar/ar.c
index f808a3a..edba227 100644
--- a/ar/ar.c
+++ b/ar/ar.c
@@ -1052,8 +1052,11 @@ write_archive (map, appendflag)
   close (outdesc);
 
   if (!appendflag)
-    if (rename (tempname, archive))
-      pfatal_with_name (tempname);
+    {
+      unlink(archive);
+      if (rename (tempname, archive))
+        pfatal_with_name (tempname);
+    }
 
   close_archive ();
 }