diff options
| author | Todd C. Miller <Todd.Miller@courtesan.com> | 2007-02-16 03:26:45 -0800 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-02-16 20:19:16 +0000 |
| commit | 775363361efe12fcd655ebed0ffc834e50893684 (patch) | |
| tree | f9f23a6f5fd103e611e5cfc89f4f0ae17b9288fe | |
| parent | a2b6a4d6bb4965a901b280b9e1bdabbd6fd15e75 (diff) | |
| download | perl-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
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 2 |
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) |