Permalink
Browse files

ae doesn't support concurrency

  • Loading branch information...
1 parent 5eb2fa2 commit 0e5a8791584de72ac93944d59435a7f77a95ca8b @tokuhirom committed Sep 23, 2009
Showing with 1 addition and 4 deletions.
  1. +1 −4 echo-ae.pl
View
@@ -5,15 +5,12 @@
use AnyEvent::Socket;
use AnyEvent::Handle;
-my $concurrent = 10;
my $port = 9010;
GetOptions(
- 'concurrent=s' => \$concurrent,
'port=i' => \$port,
);
-print "coro: http://localhost:$port/\n";
-print "concurrency: $concurrent\n";
+print "$0: http://localhost:$port/\n";
tcp_server undef, $port, sub {
my ($fh, $host, $port) = @_;
my $sock = AnyEvent::Handle->new(fh => $fh);

0 comments on commit 0e5a879

Please sign in to comment.