Database locking: Perl: Increase retry count

It seems to me that this deadlock might actually become fairly common
in some setups.  There is little harm in trying it for 100s rather
than 20s, and there maybe some benefit.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>

diff --git a/Osstest.pm b/Osstest.pm
index a39ae42c0742ab0a5340bd6763a6886bd097716a..c77d96091972696d563cf3034980dbd84c2a2ce7 100644 (file)
--- a/Osstest.pm
+++ b/Osstest.pm
@@ -282,7 +282,7 @@ sub db_retry ($$$;$$) {
     my ($pre,$body) =
         (ref $code eq 'ARRAY') ? @$code : (sub { }, $code);
 
-    my $retries= 20;
+    my $retries= 100;
     my $r;
     local $db_retry_stop;
     for (;;) {