From: John E. Malmberg <wb8tyw@qsl.net>
Date: Mon, 1 Aug 2005 19:54:22 +0000 (-0400)
Subject: [patch]vms.c - buffer highwater overrun in vmsify
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=755b3d5da747d89ebed76d5b58086a4d05d10ace;p=p5sagit%2Fp5-mst-13.2.git

[patch]vms.c - buffer highwater overrun in vmsify
Message-ID: <42EEB62E.3020108@qsl.net>

p4raw-id: //depot/perl@25269
---

diff --git a/vms/vms.c b/vms/vms.c
index 9f2cbfe..3cfdb71 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++) = ':';