From: Petter Reinholdtsen <pere@hungry.com>
Date: Sun, 1 Oct 2000 10:57:20 +0000 (+0800)
Subject: SOCK_DGRAM and listen() do not mix as reported in
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a25cd2ee6b99a242cdfcaa83cd3ec5d6dc4845f7;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/IO/lib/IO/Socket/UNIX.pm b/ext/IO/lib/IO/Socket/UNIX.pm
index d083f48..2a11752 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;
     }