work: give bodged background tasks some time to complete

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/Travelynx/Command/work.pm b/lib/Travelynx/Command/work.pm
index 65fddc3..129ff45 100644
--- a/lib/Travelynx/Command/work.pm
+++ b/lib/Travelynx/Command/work.pm
@@ -324,6 +324,15 @@ sub run {
 	if ( not $self->app->config->{traewelling}->{separate_worker} ) {
 		$self->app->start('traewelling');
 	}
+
+	# add_wagonorder and add_stationinfo assume a permanently running IOLoop
+	# and do not allow Mojolicious commands to wait until they have completed.
+	# Hence, some add_wagonorder and add_stationinfo calls made here may not
+	# complete before the work command exits, and thus have no effect.
+	#
+	# This is not ideal and will need fixing at some point.  Until then, here
+	# is the pragmatic solution for 99% of the associated issues.
+	Mojo::Promise->timer(5)->wait;
 }
 
 1;