diff options
| author | Petter Reinholdtsen <pere@hungry.com> | 2000-10-01 18:57:20 +0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-02 23:46:43 +0000 |
| commit | a25cd2ee6b99a242cdfcaa83cd3ec5d6dc4845f7 (patch) | |
| tree | 36af24b303a36022c4a1c7641a9d4f7fd389b736 /ext | |
| parent | 9e24e6f2b219a10e33205f000bb65a4012b6f3ba (diff) | |
| download | perl-a25cd2ee6b99a242cdfcaa83cd3ec5d6dc4845f7.tar.gz | |
SOCK_DGRAM and listen() do not mix as reported in
Subject: [ID 20000930.001] Bug in perl 5.00503 IO::Socket
Message-Id: <200010010257.KAA05735@localhost.localdomain>
The patch for 5.7.0+ had to be reengineered, though.
p4raw-id: //depot/perl@7113
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Socket/UNIX.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket/UNIX.pm b/ext/IO/lib/IO/Socket/UNIX.pm index d083f48b78..2a11752d02 100644 --- a/ext/IO/lib/IO/Socket/UNIX.pm +++ b/ext/IO/lib/IO/Socket/UNIX.pm @@ -37,7 +37,7 @@ sub configure { $sock->bind($addr) or return undef; } - if(exists $arg->{Listen}) { + if(exists $arg->{Listen} && $type != SOCK_DGRAM) { $sock->listen($arg->{Listen} || 5) or return undef; } |