[patch]vms.c - buffer highwater overrun in vmsify

Message-ID: <42EEB62E.3020108@qsl.net>

p4raw-id: //depot/perl@25269

1 files changed, 4 insertions, 2 deletions

diff --git a/vms/vms.c b/vms/vms.c
index 9f2cbfe61e..3cfdb7183e 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -3842,8 +3842,10 @@ static char *mp_do_tovmsspec(pTHX_ const char *path, char *buf, int ts) {
         if (!buf && ts) Renew(rslt,strlen(path)-strlen(rslt)+trnend+4,char);
         strcpy(rslt,trndev);
         cp1 = rslt + trnend;
-        *(cp1++) = '.';
-        cp2++;
+	if (*cp2 != 0) {
+          *(cp1++) = '.';
+          cp2++;
+        }
       }
       else {
         *(cp1++) = ':';