set FD_CLOEXEC on debug-leaking-scalars sockets

diff --git a/perl.c b/perl.c
index a4e0d19..d7df149 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -742,7 +742,7 @@ perl_destruct(pTHXx)
           fail gracefully  */
        int fd[2];
 
           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();
        }
            perror("Debug leaking scalars socketpair failed");
            abort();
        }