set FD_CLOEXEC on debug-leaking-scalars sockets

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index a4e0d19235..d7df149d75 100644
--- a/perl.c
+++ b/perl.c
@@ -742,7 +742,7 @@ perl_destruct(pTHXx)
 	   fail gracefully  */
 	int fd[2];
 
-	if(socketpair(AF_UNIX, SOCK_STREAM, 0, fd)) {
+	if(PerlSock_socketpair_cloexec(AF_UNIX, SOCK_STREAM, 0, fd)) {
 	    perror("Debug leaking scalars socketpair failed");
 	    abort();
 	}