- forgot [] around gettimeofday.

- select() added before first fork msg.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@236 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Misc.pl b/src/Misc.pl
index ce25d77b8eb9a14d8088fa987be03539f54d05f7..236c1f9090b5ede9f925f2ae437ba6614b608ed2 100644 (file)
--- a/src/Misc.pl
+++ b/src/Misc.pl
@@ -87,7 +87,7 @@ sub timeget {
     if ($no_timehires) {       # fallback.
        return time();
     } else {                   # the real thing.
-       return gettimeofday();
+       return [gettimeofday()];
     }
 }    
 
@@ -611,6 +611,8 @@ sub Forker {
        $SIG{CHLD} = 'IGNORE';
        $pid = eval { fork() };
        return $noreply if $pid;        # parent does nothing
+
+       select(undef, undef, undef, 0.2);
        &status("fork starting for '$label', PID == $$.");
        &shmWrite($shm,"SET FORKPID $label $$");