diff options
| author | mlelstv@serpens.de <mlelstv@serpens.de> | 2006-05-20 21:23:38 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-06-01 19:11:38 +0000 |
| commit | 6c0de24b4fddea96b9fa338443855c77f57711b2 (patch) | |
| tree | a28bb96b51509c7a55736cc5878291b09ad1a2bb /ext/IO | |
| parent | aadaa45530a169c37ceb95c3ed76644ccbd2a644 (diff) | |
| download | perl-6c0de24b4fddea96b9fa338443855c77f57711b2.tar.gz | |
[perl #39178] IO::Socket::connect returns wrong errno on timeout
From: "mlelstv@serpens.de (via RT)" <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-39178-133695.13.7935957232893@perl.org>
p4raw-id: //depot/perl@28346
Diffstat (limited to 'ext/IO')
| -rw-r--r-- | ext/IO/lib/IO/Socket.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ext/IO/lib/IO/Socket.pm b/ext/IO/lib/IO/Socket.pm index fe887d491b..5d78322b0f 100644 --- a/ext/IO/lib/IO/Socket.pm +++ b/ext/IO/lib/IO/Socket.pm @@ -117,6 +117,7 @@ sub connect { my $sel = new IO::Select $sock; + undef $!; if (!$sel->can_write($timeout)) { $err = $! || (exists &Errno::ETIMEDOUT ? &Errno::ETIMEDOUT : 1); $@ = "connect: timeout"; |