From 6f36ad4ab3b6497d1280576be438eea8cce4348e Mon Sep 17 00:00:00 2001
From: andrew deryabin <djsf@technarchy.ru>
Date: Sat, 21 Apr 2001 21:46:52 +0400
Subject: [PATCH] IO::Socket::INET patch Message-ID:
 <20010421174652.B1426@technarchy>

p4raw-id: //depot/perl@9779
---
 ext/IO/lib/IO/Socket/INET.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ext/IO/lib/IO/Socket/INET.pm b/ext/IO/lib/IO/Socket/INET.pm
index d2cc488..56dd7a2 100644
--- a/ext/IO/lib/IO/Socket/INET.pm
+++ b/ext/IO/lib/IO/Socket/INET.pm
@@ -84,7 +84,8 @@ sub _error {
     my $err = shift;
     {
       local($!);
-      $@ = join("",ref($sock),": ",@_);
+      my $title = ref($sock).": ";
+      $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);
       close($sock)
 	if(defined fileno($sock));
     }
@@ -189,12 +190,13 @@ sub configure {
 #        my $timeout = ${*$sock}{'io_socket_timeout'};
 #        my $before = time() if $timeout;
 
+	undef $@;
         if ($sock->connect(pack_sockaddr_in($rport, $raddr))) {
 #            ${*$sock}{'io_socket_timeout'} = $timeout;
             return $sock;
         }
 
-	return _error($sock, $!, "Timeout")
+	return _error($sock, $!, $@ || "Timeout")
 	    unless @raddr;
 
 #	if ($timeout) {
-- 
2.7.4