vndb/manned
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Workaround issue with spawning child processes in TUWF debug mode

Browse source 
I had applied the same workaround to VNDB's code some time ago. Really
need to figure out why this happens...
This commit is contained in:
Yorhel 2021-04-19 07:45:12 +02:00
parent 212fc725ba
commit c7f85a5685
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
www/index.pl
View file

@ -10,6 +10,10 @@ use Cwd 'abs_path';
our $ROOT; our $ROOT;
BEGIN { ($ROOT = abs_path $0) =~ s{/www/index\.pl$}{}; } 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 lib "$ROOT/lib/ManUtils/inst/lib/perl5";
use ManUtils; use ManUtils;