Permalink
Browse files

Merge branch 'master' of git://github.com/hirose31/perl-echo-servers

Conflicts:
	echo-ae+mp.pl
  • Loading branch information...
2 parents 6411336 + 47af571 commit b68c2cf17ef327291c7ab025c8bbf4202e93ecc7 @tokuhirom committed Nov 15, 2009
Showing with 7 additions and 4 deletions.
  1. +1 −0 .gitignore
  2. +1 −0 dump-env.pl
  3. +1 −1 echo-coro.pl
  4. +1 −1 echo-ithread.pl
  5. +2 −1 echo-poe.pl
  6. +1 −1 echo-prefork.pl
View
1 .gitignore
@@ -1 +1,2 @@
benchmark/echobench
+inc/
View
1 dump-env.pl
@@ -22,6 +22,7 @@
sub d {
my $c = shift;
+ local $@;
eval { Class::MOP::load_class($c); };
printf "%-22s: %s\n", $c, ($@ ? "MISSING" : ${"$c\::VERSION"});
}
View
2 echo-coro.pl
@@ -6,7 +6,7 @@
use Coro::EV;
use Getopt::Long;
-my $concurrent = 10;
+my $concurrent = shift @ARGV || 10;
my $port = 9010;
GetOptions(
'port=i' => \$port,
View
2 echo-ithread.pl
@@ -6,7 +6,7 @@
use IO::Socket::INET;
my $concurrent = 10;
-my $port = 9090;
+my $port = 9010;
GetOptions(
'concurrent=s' => \$concurrent,
'port=i' => \$port,
View
3 echo-poe.pl
@@ -21,11 +21,12 @@
my $clients = 0;
my $port = 9010;
-my $concurrent = 1;
+my $concurrent = 10;
# Concurrent isn't an option.
GetOptions(
'port=i' => \$port,
+ 'concurrent=i' => \$concurrent,
);
POE::Session->create(
View
2 echo-prefork.pl
@@ -6,7 +6,7 @@
use Parallel::Prefork;
my $concurrent = 10;
-my $port = 9040;
+my $port = 9010;
GetOptions(
'concurrent=s' => \$concurrent,
'port=i' => \$port,

0 comments on commit b68c2cf

Please sign in to comment.