This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (from parent 1: 8947592)
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 patch | blob | blame | history

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)
Unnamed repository; edit this file 'description' to name the repository.