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

mickeyn · mickeyn · commit 5d617ae59a5c · 2016-05-06T21:32:40.000+01:00
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 {

Original file line number	Diff line number	Diff line change
`@@ -275,6 +275,8 @@ sub import_archive {`
`275`	`275`	`# update 'first' value`
`276`	`276`	`$document->set_first;`
`277`	`277`	`$document->put;`
	`278`	`+`
	`279`	`+ sleep 2 if $ENV{'METACPAN_SERVER_CONFIG_LOCAL_SUFFIX'} eq 'testing';`
`278`	`280`	`}`
`279`	`281`
`280`	`282`	`sub _build_backpan_index {`