fix off-by-one in win32 registry handling

	Message-ID: <000401bdaf35$27489e80$a32fa8c0@tau.Active>
	Subject: [PATCH 5.004_73]

p4raw-id: //depot/perl@1495

diff --git a/win32/win32.c b/win32/win32.c
index 7418fca..4891c2e 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -218,7 +218,7 @@ get_emd_part(char *prev_path, char *trailing_path, ...)
        oldsize = strlen(prev_path) + 1;
        newsize += oldsize;                     /* includes plus 1 for ';' */
        Renew(prev_path, newsize, char);
-       prev_path[oldsize] = ';';
+       prev_path[oldsize-1] = ';';
        strcpy(&prev_path[oldsize], mod_name);
     }
     else {