X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/putty/blobdiff_plain/9097913f64d2ff6e77d7c99837918879c5f511b8..71ed591e9e049cf1c64ec9ddc10e2158c2f76c89:/mac/macstore.c

diff --git a/mac/macstore.c b/mac/macstore.c
index 74fa8d97..5b6afba2 100644
--- a/mac/macstore.c
+++ b/mac/macstore.c
@@ -683,6 +683,7 @@ void store_host_key(const char *hostname, int port,
     char *resname;
     Str255 presname;
     Handle resvalue;
+    Handle reshandle;
     int id;
 
     /* Open the host key file */
@@ -708,7 +709,12 @@ void store_host_key(const char *hostname, int port,
     UseResFile(keyrefnum);
     resname = dupprintf("%s@%d:%s", keytype, port, hostname);
     c2pstrcpy(presname, resname);
-    
+
+    reshandle = Get1NamedResource(FOUR_CHAR_CODE('TEXT'), presname);
+    if (reshandle != NULL) {
+	/* The resource exists, we're replacing a host key */
+	RemoveResource(reshandle);
+    }
     error = PtrToHand(key, &resvalue, strlen(key));
     if (error != noErr) goto out;