Remove random sleep that was added for concurrency testing.

[perl-indexdata-utils.git] / lib / IndexData / Utils / PersistentCounter.pm

diff --git a/lib/IndexData/Utils/PersistentCounter.pm b/lib/IndexData/Utils/PersistentCounter.pm
index 3f2ae66..ed15817 100644 (file)
--- 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;