diff --git a/sv.c b/sv.c
index 8a005b2d165b..06d6a8421171 100644
--- a/sv.c
+++ b/sv.c
@@ -14111,7 +14111,7 @@ Perl_dirp_dup(pTHX_ DIR *const dp, CLONE_PARAMS *const param)
 
     PERL_UNUSED_ARG(param);
 
-    ret = fdopendir(dup(my_dirfd(dp)));
+    ret = fdopendir(PerlLIO_dup_cloexec(my_dirfd(dp)));
 
 #elif defined(WIN32)
     ret = win32_dirp_dup(dp, param);