From c7f85a5685e619d0a91f7d74b9eafa53e407a9c3 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Mon, 19 Apr 2021 07:45:12 +0200
Subject: [PATCH] Workaround issue with spawning child processes in TUWF debug
 mode

I had applied the same workaround to VNDB's code some time ago. Really
need to figure out why this happens...
---
 www/index.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/www/index.pl b/www/index.pl
index df7f3f0..a8f9395 100755
--- a/www/index.pl
+++ b/www/index.pl
@@ -10,6 +10,10 @@ use Cwd 'abs_path';
 our $ROOT;
 BEGIN { ($ROOT = abs_path $0) =~ s{/www/index\.pl$}{}; }
 
+# Force the pure-perl AnyEvent backend; More lightweight and we don't need the
+# performance of EV. Fixes an issue with subprocess spawning under TUWF's
+# built-in web server that I haven't been able to track down.
+BEGIN { $ENV{PERL_ANYEVENT_MODEL} = 'Perl'; }
 
 use lib "$ROOT/lib/ManUtils/inst/lib/perl5";
 use ManUtils;