diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2006-01-02 09:05:43 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-01-02 19:22:52 +0000 |
| commit | bbdb6c9ad82eade42e29725b24ecabf73dd608fb (patch) | |
| tree | 8488e4d3a9f04e54c32f4899c59fa1099ad18e5c | |
| parent | 835f2d759d81e3e330b5abfa90986b335f0e03bb (diff) | |
| download | perl-bbdb6c9ad82eade42e29725b24ecabf73dd608fb.tar.gz | |
patch@26561 & earlier - buffer overrun in VMS.C
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <43B97987.70201@qsl.net>
p4raw-id: //depot/perl@26581
| -rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4830,7 +4830,7 @@ static char *mp_do_fileify_dirspec(pTHX_ const char *dir,char *buf,int ts) else retspec = __fileify_retbuf; cp1 = esa; cp2 = retspec; - while (*cp1 != ':') *(cp2++) = *(cp1++); + while ((*cp1 != ':') && (*cp1 != '\0')) *(cp2++) = *(cp1++); strcpy(cp2,":[000000]"); cp1 += 2; strcpy(cp2+9,cp1); |