summaryrefslogtreecommitdiff
path: root/ext/IO
diff options
context:
space:
mode:
authorTodd C. Miller <Todd.Miller@courtesan.com>2007-02-16 03:26:45 -0800
committerSteve Peters <steve@fisharerojo.org>2007-02-16 20:19:16 +0000
commit775363361efe12fcd655ebed0ffc834e50893684 (patch)
treef9f23a6f5fd103e611e5cfc89f4f0ae17b9288fe /ext/IO
parenta2b6a4d6bb4965a901b280b9e1bdabbd6fd15e75 (diff)
downloadperl-775363361efe12fcd655ebed0ffc834e50893684.tar.gz
[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
Diffstat (limited to 'ext/IO')
-rw-r--r--ext/IO/lib/IO/Socket.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm
index 5d78322b0f..909509311b 100644
--- 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)