diff options
author | Craig A. Berry <craigberry@mac.com> | 2012-11-30 21:47:03 -0600 |
---|---|---|
committer | Craig A. Berry <craigberry@mac.com> | 2012-11-30 21:47:03 -0600 |
commit | a84b1d1f981773674baedc3f054c82b3243c6136 (patch) | |
tree | e22cb4200f55c3163fd5482c54f539c86a190530 /vms | |
parent | 66facaa366b2bb9328ac16455b0b17db621a069d (diff) | |
download | perl-a84b1d1f981773674baedc3f054c82b3243c6136.tar.gz |
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.
Diffstat (limited to 'vms')
-rw-r--r-- | vms/vms.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) { |