From a84b1d1f981773674baedc3f054c82b3243c6136 Mon Sep 17 00:00:00 2001 From: "Craig A. Berry" Date: Fri, 30 Nov 2012 21:47:03 -0600 Subject: [PATCH] Remove a spurious strlen in VMS's readdir(). After setting the null byte, we turned around and pretended we didn't know where it was and went hunting for it. Hmm. --- vms/vms.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/vms/vms.c b/vms/vms.c index 6ff851f..38c4ff1 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -10176,7 +10176,7 @@ Perl_readdir(pTHX_ DIR *dd) memcpy(dd->entry.d_name, n_spec, n_len + e_len); dd->entry.d_name[n_len + e_len] = '\0'; - dd->entry.d_namlen = strlen(dd->entry.d_name); + dd->entry.d_namlen = n_len + e_len; /* Convert the filename to UNIX format if needed */ if (dd->flags & PERL_VMSDIR_M_UNIXSPECS) { -- 2.7.4