Fix possible buffer overflow under VMS

[perl5.git] / taint.c

diff --git a/taint.c b/taint.c
index 584c9f4..321c7b8 100644 (file)
--- 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)