[memcached] bradfitz, r424: configurable amount

[commits at code.sixapart.com]

configurable amount



U   trunk/api/perl/dev/bench.pl


Modified: trunk/api/perl/dev/bench.pl
===================================================================
--- trunk/api/perl/dev/bench.pl	2006-11-03 20:15:08 UTC (rev 423)
+++ trunk/api/perl/dev/bench.pl	2006-11-03 22:09:17 UTC (rev 424)
@@ -31,7 +31,7 @@
 }
 
 srand(1);
-my $to = 3000;
+my $to = shift || 3000;
 for (1..$to) {
     warn "$_ / $to\n" if $_ % 100 == 0;
     my @multi = map { "key$_" } map { int(rand($keys * 2)) + 1 } (1..40);