summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2021-04-19 07:45:12 +0200
committerYorhel <git@yorhel.nl>2021-04-19 07:45:15 +0200
commitc7f85a5685e619d0a91f7d74b9eafa53e407a9c3 (patch)
tree7d408ac749d4fb2e0801026b38474913c7731848
parent212fc725ba74c4b458addb0303c1f69471a140b6 (diff)
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...
-rwxr-xr-xwww/index.pl4
1 files changed, 4 insertions, 0 deletions
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;