Permalink
Browse files

match random workload to described behaviour

  • Loading branch information...
1 parent 0d20900 commit 5ed15e2ce8fb62ba60dfe83f0f3b4e60f4f4626a Alexander Else committed May 17, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 examples/Perl/taskvent.pl
@@ -43,7 +43,7 @@ sub within {
my $total_msec = 0; # Total expected cost in msecs
for (1 .. 100) {
# Random workload from 1 to 100msecs
- my $workload = within(100) + 1;
+ my $workload = within(100);
$total_msec += $workload;
$sender->send($workload);
}

0 comments on commit 5ed15e2

Please sign in to comment.