--- trunk/experiments/protocol-v3/server.pl	2009/11/01 20:30:48	163
+++ trunk/experiments/protocol-v3/server.pl	2009/11/01 21:00:30	164
@@ -50,14 +50,16 @@
 			my $new = $lsn->accept;
 			$sel->add($new);
 			$session->{$new} = $new->peerhost;
-			warn "[socket] connect from ", $new->peerhost, "\n";
+			warn "[socket] connect\n";
 			Storable::store_fd( { ping => 1 }, $new );
 		} else {
 			if ( $sock->connected ) {
 				my $data = Storable::fd_retrieve( $sock );
 				warn "<<<< ", dump($data), $/;
+				if ( $data->{repl} ) {
+					Storable::store_fd( { repl => $data }, $sock );
+				}
 			} else {
-				$session->{$sock}->close();
 				delete $session->{$sock};
 				warn "[socket] disconnect\n";
 				$sel->remove($sock);