This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix off-by-one in win32 registry handling
authorDouglas Lankshear <doug@lankshear.net>
Tue, 14 Jul 1998 07:39:06 +0000 (00:39 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Jul 1998 23:47:18 +0000 (23:47 +0000)
Message-ID: <000401bdaf35$27489e80$a32fa8c0@tau.Active>
Subject: [PATCH 5.004_73]

p4raw-id: //depot/perl@1495

win32/win32.c

index 7418fca..4891c2e 100644 (file)
@@ -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 {