diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2001-02-27 00:34:36 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-02-27 06:12:11 +0000 |
| commit | d5ff79b3161a608c49c52fd6aa22cff1af6f6b82 (patch) | |
| tree | 020e9213536d2108b5cf5da6059511b1d3b53ebb /pp_sys.c | |
| parent | e4f0d88dd7061f3d9b4bbe01e378d668273f5363 (diff) | |
| download | perl-d5ff79b3161a608c49c52fd6aa22cff1af6f6b82.tar.gz | |
[perl-current] EPOC
Message-ID: <Pine.LNX.4.02.10102262333490.3781-100000@milkyway.science-computing.de>
p4raw-id: //depot/perl@8956
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -2210,6 +2210,10 @@ PP(pp_socket) fcntl(fd, F_SETFD, fd > PL_maxsysfd); /* ensure close-on-exec */ #endif +#ifdef EPOC + setbuf( IoIFP(io), NULL); /* EPOC gets confused about sockets */ +#endif + RETPUSHYES; #else DIE(aTHX_ PL_no_sock_func, "socket"); |