This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix possible buffer overflow under VMS
authorChip Salzenberg <chip@perl.com>
Sat, 1 Mar 1997 06:14:33 +0000 (18:14 +1200)
committerChip Salzenberg <chip@atlantic.net>
Sat, 26 Apr 1997 12:00:00 +0000 (00:00 +1200)
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)