Changeset 11415

Timestamp:

05/12/08 01:38:06 (5 years ago)

Author:

topia

Message:

* name resolution error に host をつけるようにした。
* $sock not defined を warn & try next にした。
* unix domain socket で before_connect が呼ばれるようにした。

Files:

• lang/perl/tiarra/trunk/main/Tiarra/Socket/Connect.pm (modified) (3 diffs)

lang/perl/tiarra/trunk/main/Tiarra/Socket/Connect.pm

@@ -164 +164 @@
 
     if ($entry->answer_status ne $entry->ANSWER_OK) {
-        $this->_connect_error("Couldn't resolve hostname");
+        $this->_connect_error("Couldn't resolve hostname: ".$this->host);
         return undef; # end
     }
@@ -258 +258 @@
         Proto => 'tcp');
     if (!defined $sock) {
-        $this->_connect_error(
-            $this->sock_errno_to_msg($!, 'Couldn\'t prepare socket'),
-            $!);
+        $this->_connect_warn("Couldn't prepare socket: $@");
+        $this->_connect_try_next;
         return;
     }
@@ -311 +310 @@
     }
 
+    eval {
+        $this->_call_hooks('before_connect', $this->{connecting});
+    }; if ($@) {
+        $this->_call_skip($@);
+        $this->_connect_try_next;
+        return;
+    }
     require IO::Socket::UNIX;
     my $sock = IO::Socket::UNIX->new(Peer => $this->{connecting}->{addr});