reuse addr

Author: dams

tools/benchmarks/readline_vs_sysread_vs_recv/server-generator.pl

@@ -9,7 +9,8 @@
     Listen    => 5,
     LocalAddr => 'localhost',
     LocalPort => 1234,
-    Proto     => 'tcp'
+    Proto     => 'tcp',
+    ReuseAddr => 1,
 );
 
 die $! unless $sock;
@@ -19,10 +20,10 @@
     my $line = <$client>;
     chomp $line;
 
-    my ($cnt, $len) = split(',', $line);
-    next unless $cnt || $len;
+#    my ($cnt, $len) = split(',', $line);
+#    next unless $cnt || $len;
 
-    for (my $i = 1; $i <= $cnt; ++$i) {
-        print $client '.' x $len, "\n";
-    }
+#    for (my $i = 1; $i <= $cnt; ++$i) {
+#        print $client '.' x $len, "\n";
+#    }
 }