[OSSTEST PATCH 2/4] Database locking: Perl: Increase retry count

[Ian Jackson <ian.jackson@eu.citrix.com>]

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>
---
 Osstest.pm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Osstest.pm b/Osstest.pm
index a39ae42..c77d960 100644
--- 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 (;;) {
-- 
1.7.10.4