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...
This commit is contained in:
parent
212fc725ba
commit
c7f85a5685
1 changed files with 4 additions and 0 deletions
|
|
@ -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;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue