From 0dc443ab240d96700aca2fe15c6e555416114ee7 Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@perl.com>
Date: Sat, 1 Mar 1997 18:14:33 +1200
Subject: [PATCH] Fix possible buffer overflow under VMS

---
 taint.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
1.8.3.1