From ba1af1f8a2de73984e3ae0449178c96c696cf2b7 Mon Sep 17 00:00:00 2001 From: Ken Hirsch Date: Thu, 12 Jan 2006 08:26:16 -0500 Subject: [PATCH] Re: Today's compiling adventure Message-ID: <43C69F48.7090600@ftml.net> Date: Thu, 12 Jan 2006 13:26:16 -0500 p4raw-id: //depot/perl@26831 --- pp_sys.c | 23 ----------------------- 1 file changed, 23 deletions(-) diff --git a/pp_sys.c b/pp_sys.c index fa5c59e..9777f69 100644 --- a/pp_sys.c +++ b/pp_sys.c @@ -2381,10 +2381,6 @@ PP(pp_bind) { #ifdef HAS_SOCKET dVAR; dSP; -#ifdef MPE /* Requires PRIV mode to bind() to ports < 1024 */ - extern void GETPRIVMODE(); - extern void GETUSERMODE(); -#endif SV * const addrsv = POPs; /* OK, so on what platform does bind modify addr? */ const char *addr; @@ -2392,35 +2388,16 @@ PP(pp_bind) register IO * const io = GvIOn(gv); STRLEN len; int bind_ok = 0; -#ifdef MPE - int mpeprivmode = 0; -#endif if (!io || !IoIFP(io)) goto nuts; addr = SvPV_const(addrsv, len); TAINT_PROPER("bind"); -#ifdef MPE /* Deal with MPE bind() peculiarities */ - if (((struct sockaddr *)addr)->sa_family == AF_INET) { - /* The address *MUST* stupidly be zero. */ - ((struct sockaddr_in *)addr)->sin_addr.s_addr = INADDR_ANY; - /* PRIV mode is required to bind() to ports < 1024. */ - if (((struct sockaddr_in *)addr)->sin_port < 1024 && - ((struct sockaddr_in *)addr)->sin_port > 0) { - GETPRIVMODE(); /* If this fails, we are aborted by MPE/iX. */ - mpeprivmode = 1; - } - } -#endif /* MPE */ if (PerlSock_bind(PerlIO_fileno(IoIFP(io)), (struct sockaddr *)addr, len) >= 0) bind_ok = 1; -#ifdef MPE /* Switch back to USER mode */ - if (mpeprivmode) - GETUSERMODE(); -#endif /* MPE */ if (bind_ok) RETPUSHYES; -- 2.7.4