Must specify fromlen for recvfrom for QNX6

Message-Id: <200203251839.NAA02055@bottesini.harvard.edu>

p4raw-id: //depot/perl@15493

diff --git a/pp_sys.c b/pp_sys.c
index 941760b..827d8f6 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1584,7 +1584,7 @@ PP(pp_sysread)
 #ifdef HAS_SOCKET
     if (PL_op->op_type == OP_RECV) {
        char namebuf[MAXPATHLEN];
-#if (defined(VMS_DO_SOCKETS) && defined(DECCRTL_SOCKETS)) || defined(MPE)
+#if (defined(VMS_DO_SOCKETS) && defined(DECCRTL_SOCKETS)) || defined(MPE) || defined(__QNXNTO__)
        bufsize = sizeof (struct sockaddr_in);
 #else
        bufsize = sizeof namebuf;