From 5ed15e2ce8fb62ba60dfe83f0f3b4e60f4f4626a Mon Sep 17 00:00:00 2001
From: Alexander Else <alexander.else@team.telstra.com>
Date: Tue, 17 May 2011 19:51:49 +1000
Subject: [PATCH] match random workload to described behaviour

---
 examples/Perl/taskvent.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/Perl/taskvent.pl b/examples/Perl/taskvent.pl
index 3f3f374d6..c48914224 100644
--- a/examples/Perl/taskvent.pl
+++ b/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);
 }