Changeset 33938 for lang/perl/tiarra/trunk

Timestamp:

06/13/09 17:20:02 (4 years ago)

Author:

topia

Message:

implements randomization of connection order (aka. DNS Round-robin) for Tiarra::Socket::Connect.

see also: http://d.hatena.ne.jp/JULY/20090612/p1

Files:

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

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

@@ -9 +9 @@
 use warnings;
 use Carp;
+use List::Util qw(shuffle);
 use Tiarra::Socket;
 use base qw(Tiarra::Socket);
@@ -197 +198 @@
     }
 
-    foreach my $addr (@{$entry->answer_data}) {
+    foreach my $addr (shuffle @{$entry->answer_data}) {
         push (@{$addrs_by_types{$this->probe_type_by_addr($addr)}},
               $addr);