- if a forked process "died", forked{}{PID} somehow became $$ - fixed.

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

diff --git a/src/IRC/IrcHelpers.pl b/src/IRC/IrcHelpers.pl
index 9e4c1cd37a28def394baa4611401be6c9a3580e9..fc96d2830552281bd702fb6fee1c34f49068e271 100644 (file)
--- a/src/IRC/IrcHelpers.pl
+++ b/src/IRC/IrcHelpers.pl
@@ -301,7 +301,7 @@ sub chanServCheck {
 
     if (!defined $chan or $chan =~ /^$/) {
        &WARN("chanServCheck: chan == NULL.");
-       return;
+       return 0;
     }
 
     if ($chan =~ tr/A-Z/a-z/) {
@@ -309,19 +309,20 @@ sub chanServCheck {
     }
 
     if (! &IsChanConf("chanServ_ops") ) {
-       return;
+       return 0;
     }
 
     &DEBUG("chanServCheck($chan) called.");
 
     if ( &IsParam("nickServ_pass") and !$nickserv) {
        &DEBUG("chanServ_ops($chan): nickserv enabled but not alive? (ircCheck)");
-       return;
+       return 0;
     }
-    return if (exists $channels{$chan}{'o'}{$ident});
+    return 0 if (exists $channels{$chan}{'o'}{$ident});
 
     &status("ChanServ ==> Requesting ops for $chan. (chanServCheck)");
     &rawout("PRIVMSG ChanServ :OP $chan $ident");
+    return 1;
 }
 
 1;