diff options
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 46 |
1 files changed, 23 insertions, 23 deletions
@@ -894,7 +894,7 @@ PP(pp_read) return pp_sysread(ARGS); } -static OP * +STATIC OP * doform(CV *cv, GV *gv, OP *retop) { dTHR; @@ -1540,7 +1540,7 @@ PP(pp_ioctl) if (optype == OP_IOCTL) #ifdef HAS_IOCTL - retval = ioctl(PerlIO_fileno(IoIFP(io)), func, s); + retval = PerlLIO_ioctl(PerlIO_fileno(IoIFP(io)), func, s); #else DIE("ioctl is not implemented"); #endif @@ -1594,7 +1594,7 @@ PP(pp_flock) fp = Nullfp; if (fp) { (void)PerlIO_flush(fp); - value = (I32)(FLOCK(PerlIO_fileno(fp), argtype) >= 0); + value = (I32)(PerlLIO_flock(PerlIO_fileno(fp), argtype) >= 0); } else value = 0; @@ -2064,7 +2064,7 @@ PP(pp_stat) laststatval = PerlLIO_lstat(SvPV(statname, na), &statcache); else #endif - laststatval = Stat(SvPV(statname, na), &statcache); + laststatval = PerlLIO_stat(SvPV(statname, na), &statcache); if (laststatval < 0) { if (dowarn && strchr(SvPV(statname, na), '\n')) warn(warn_nl, "stat"); @@ -3321,11 +3321,11 @@ PP(pp_tms) EXTEND(SP, 4); #ifndef VMS - (void)times(×buf); + (void)PerlProc_times(×buf); #else - (void)times((tbuffer_t *)×buf); /* time.h uses different name for */ - /* struct tms, though same data */ - /* is returned. */ + (void)PerlProc_times((tbuffer_t *)×buf); /* time.h uses different name for */ + /* struct tms, though same data */ + /* is returned. */ #endif PUSHs(sv_2mortal(newSVnv(((double)timesbuf.tms_utime)/HZ))); @@ -3423,10 +3423,10 @@ PP(pp_sleep) (void)time(&lasttime); if (MAXARG < 1) - Pause(); + PerlProc_pause(); else { duration = POPi; - sleep((unsigned int)duration); + PerlProc_sleep((unsigned int)duration); } (void)time(&when); XPUSHi(when - lasttime); @@ -3689,14 +3689,14 @@ PP(pp_gnetent) struct netent *nent; if (which == OP_GNBYNAME) - nent = getnetbyname(POPp); + nent = PerlSock_getnetbyname(POPp); else if (which == OP_GNBYADDR) { int addrtype = POPi; Netdb_net_t addr = (Netdb_net_t) U_L(POPn); - nent = getnetbyaddr(addr, addrtype); + nent = PerlSock_getnetbyaddr(addr, addrtype); } else - nent = getnetent(); + nent = PerlSock_getnetent(); EXTEND(SP, 4); if (GIMME != G_ARRAY) { @@ -3886,7 +3886,7 @@ PP(pp_gservent) } PUSHs(sv = sv_mortalcopy(&sv_no)); #ifdef HAS_NTOHS - sv_setiv(sv, (IV)ntohs(sent->s_port)); + sv_setiv(sv, (IV)PerlSock_ntohs(sent->s_port)); #else sv_setiv(sv, (IV)(sent->s_port)); #endif @@ -3904,7 +3904,7 @@ PP(pp_shostent) { djSP; #ifdef HAS_SOCKET - sethostent(TOPi); + PerlSock_sethostent(TOPi); RETSETYES; #else DIE(no_sock_func, "sethostent"); @@ -3915,7 +3915,7 @@ PP(pp_snetent) { djSP; #ifdef HAS_SOCKET - setnetent(TOPi); + PerlSock_setnetent(TOPi); RETSETYES; #else DIE(no_sock_func, "setnetent"); @@ -3926,7 +3926,7 @@ PP(pp_sprotoent) { djSP; #ifdef HAS_SOCKET - setprotoent(TOPi); + PerlSock_setprotoent(TOPi); RETSETYES; #else DIE(no_sock_func, "setprotoent"); @@ -3937,7 +3937,7 @@ PP(pp_sservent) { djSP; #ifdef HAS_SOCKET - setservent(TOPi); + PerlSock_setservent(TOPi); RETSETYES; #else DIE(no_sock_func, "setservent"); @@ -3948,7 +3948,7 @@ PP(pp_ehostent) { djSP; #ifdef HAS_SOCKET - endhostent(); + PerlSock_endhostent(); EXTEND(sp,1); RETPUSHYES; #else @@ -3960,7 +3960,7 @@ PP(pp_enetent) { djSP; #ifdef HAS_SOCKET - endnetent(); + PerlSock_endnetent(); EXTEND(sp,1); RETPUSHYES; #else @@ -3972,7 +3972,7 @@ PP(pp_eprotoent) { djSP; #ifdef HAS_SOCKET - endprotoent(); + PerlSock_endprotoent(); EXTEND(sp,1); RETPUSHYES; #else @@ -3984,7 +3984,7 @@ PP(pp_eservent) { djSP; #ifdef HAS_SOCKET - endservent(); + PerlSock_endservent(); EXTEND(sp,1); RETPUSHYES; #else @@ -4203,7 +4203,7 @@ PP(pp_getlogin) #ifdef HAS_GETLOGIN char *tmps; EXTEND(SP, 1); - if (!(tmps = getlogin())) + if (!(tmps = PerlProc_getlogin())) RETPUSHUNDEF; PUSHp(tmps, strlen(tmps)); RETURN; |