prevent race-condition for 'first' setting in testing mode

metacpan · May 6, 2016 · 5d617ae · 5d617ae
1 parent 340bac6
commit 5d617ae
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Script/Release.pm b/lib/MetaCPAN/Script/Release.pm
@@ -275,6 +275,8 @@ sub import_archive {
     # update 'first' value
     $document->set_first;
     $document->put;
+
+    sleep 2 if $ENV{'METACPAN_SERVER_CONFIG_LOCAL_SUFFIX'} eq 'testing';
 }
 
 sub _build_backpan_index {