diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2001-03-03 17:36:04 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-03 17:14:30 +0000 |
| commit | a9f1f6b08f6ee0be908e1db0a515364a9c9549b0 (patch) | |
| tree | df952095783f6fa80d846c3d566326db5d7189cf | |
| parent | ce3e10c2bc172c8eabb46e97884de9f9608395cd (diff) | |
| download | perl-a9f1f6b08f6ee0be908e1db0a515364a9c9549b0.tar.gz | |
[perl-5.6.x, perl-current] accept for EPOC
Message-ID: <Pine.LNX.4.02.10103031635190.4825-100000@milkyway.science-computing.de>
p4raw-id: //depot/perl@9002
| -rw-r--r-- | pp_sys.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2440,7 +2440,8 @@ PP(pp_accept) #endif #ifdef EPOC - len = sizeof saddr; /* EPOC somehow truncates info */ + len = sizeof saddr; /* EPOC somehow truncates info */ + setbuf( IoIFP(nstio), NULL); /* EPOC gets confused about sockets */ #endif PUSHp((char *)&saddr, len); |