From: Mike Taylor <mike@indexdata.com>
Date: Tue, 9 Dec 2014 12:18:50 +0000 (+0000)
Subject: Remove random sleep that was added for concurrency testing.
X-Git-Tag: v0.02~15
X-Git-Url: http://git.indexdata.com/?p=perl-indexdata-utils.git;a=commitdiff_plain;h=766b166362f9a8ac76ea10a762833ec420655b45

Remove random sleep that was added for concurrency testing.
---

diff --git a/lib/IndexData/Utils/PersistentCounter.pm b/lib/IndexData/Utils/PersistentCounter.pm
index 3f2ae66..ed15817 100644
--- a/lib/IndexData/Utils/PersistentCounter.pm
+++ b/lib/IndexData/Utils/PersistentCounter.pm
@@ -35,7 +35,6 @@ sub next {
     flock($fh, 2) || die "can't lock file";
     my $n = <$fh>;
     $fh->seek(0, 0);
-    sleep(int(rand(2)));
     $fh->print($n+1, "\n");
     $fh->close() or return undef;
     return $n+0;