[perl #41521] Fix for IO::Socket send method

From: "Todd C. Miller" (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-24617-1171654005-819.41521-75-0@perl.org>

p4raw-id: //depot/perl@30332

diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 5d78322..9095093 100644 (file)
--- a/ext/IO/lib/IO/Socket.pm
+++ b/ext/IO/lib/IO/Socket.pm
@@ -250,7 +250,7 @@ sub send {
     my $peer  = $_[3] || $sock->peername;
 
     croak 'send: Cannot determine peer address'
-        unless($peer);
+        unless(defined $peer);
 
     my $r = defined(getpeername($sock))
        ? send($sock, $_[1], $flags)