--- trunk/Estraier.pm	2006/01/05 15:30:35	29
+++ trunk/Estraier.pm	2006/01/05 15:33:48	30
@@ -718,6 +718,21 @@
 	$self->{pxport} = $port;
 }
 
+=head2 set_timeout
+
+Specify timeout of connection in seconds
+
+  $node->set_timeout( 15 );
+
+=cut
+
+sub set_timeout {
+	my $self = shift;
+	my $sec = shift;
+	croak "timeout must be number" unless ($sec =~ m/^\d+$/);
+	$self->{timeout} = $sec;
+}
+
 package Search::Estraier::Master;
 
 use Carp;