eep, scalar() would be nice

[infobot.git] / src / IRC / Schedulers.pl

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 3fe5e63a3e54c9a00d44a8f4790259ec75660f6d..08be4a966ed64b57395d8334f68a49169d6f3113 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -686,8 +686,8 @@ sub ircCheck {
     }
 
     # debug. needed for testing
-    &TODO("conn->connected = " . $conn->connected());
-    &TODO("time()-msgtime = " . time() - $msgtime);
+    &TODO("conn->connected = " . scalar($conn->connected()));
+    &TODO("time()-msgtime = " . scalar(time() - $msgtime));
 
     if (!$conn->connected or time() - $msgtime > 3600) {
        # todo: shouldn't we use cache{connect} somewhere?
@@ -770,6 +770,7 @@ sub miscCheck {
            my $pid     = $2;
            my $time    = $3;
            next if (time() - $time < 60*60);
+           # FIXME remove not-pid shm if parent process dead
            next if ($pid == $bot_pid);
            # don't touch other bots, if they're running.
            next unless ($param{ircNick} =~ /^\Q$n\E$/);