diff options
author | Yorhel <git@yorhel.nl> | 2021-04-19 07:45:12 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2021-04-19 07:45:15 +0200 |
commit | c7f85a5685e619d0a91f7d74b9eafa53e407a9c3 (patch) | |
tree | 7d408ac749d4fb2e0801026b38474913c7731848 | |
parent | 212fc725ba74c4b458addb0303c1f69471a140b6 (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-x | www/index.pl | 4 |
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; |