From: Chip Salzenberg <chip@perl.com>
Date: Sat, 1 Mar 1997 06:14:33 +0000 (+1200)
Subject: Fix possible buffer overflow under VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dc443ab240d96700aca2fe15c6e555416114ee7;p=p5sagit%2Fp5-mst-13.2.git

Fix possible buffer overflow under VMS
---

diff --git a/taint.c b/taint.c
index 584c9f4..321c7b8 100644
--- a/taint.c
+++ b/taint.c
@@ -39,7 +39,7 @@ taint_env()
 
 #ifdef VMS
     int i = 0;
-    char name[14] = "DCL$PATH";
+    char name[10 + TYPE_DIGITS(int)] = "DCL$PATH";
 
     while (1) {
 	if (i)