This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Demand more before attempting socketpair().
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Mar 2002 17:55:48 +0000 (17:55 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Mar 2002 17:55:48 +0000 (17:55 +0000)
p4raw-id: //depot/perl@14948

pp_sys.c

index 099eab9..51afe1d 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2285,7 +2285,7 @@ PP(pp_socket)
 
 PP(pp_sockpair)
 {
-#if defined (HAS_SOCKETPAIR) || (defined (HAS_SOCKET) && defined(SOCK_DGRAM))
+#if defined (HAS_SOCKETPAIR) || (defined (HAS_SOCKET) && defined(SOCK_DGRAM) && defined(AF_INET) && defined(PF_INET))
     dSP;
     GV *gv1;
     GV *gv2;