- POSIX::_exit(0) added: fixes fork problem.
git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@223
c11ca15a-4712-0410-83d8-
924469b57eb5
if (&IsParam("useStrict")) { use strict; }
if (&IsParam("useStrict")) { use strict; }
my $file = $bot_misc_dir."/blootbot.help";
my %help = ();
my $file = $bot_misc_dir."/blootbot.help";
my %help = ();
+ if (!defined $topic or $topic eq "") {
&msg($who, $help{'main'});
my $i = 0;
&msg($who, $help{'main'});
my $i = 0;
if (&IsParam("forking") and $$ == $bot_pid) {
return $noreply unless (&addForked($label));
if (&IsParam("forking") and $$ == $bot_pid) {
return $noreply unless (&addForked($label));
+ ### use select(undef,undef,undef,0.2); ...
$SIG{CHLD} = 'IGNORE';
$pid = eval { fork() };
return $noreply if $pid; # parent does nothing
$SIG{CHLD} = 'IGNORE';
$pid = eval { fork() };
return $noreply if $pid; # parent does nothing
if (defined $pid) { # child.
&delForked($label);
&status("fork finished for '$label'.");
if (defined $pid) { # child.
&delForked($label);
&status("fork finished for '$label'.");