fixed up performReply to be more intelligent

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

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index d2bc6fae87752903c7713a0c4ed7c8557a7ca40c..eeef5cbeac8b4417955ff9949e1445a020082b00 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -257,7 +257,7 @@ sub performReply {
     &checkMsgType($reply);
 
     if ($msgType eq 'public') {
-       if (rand() < 0.5) {
+       if (rand() < 0.5 or $reply =~ /[\.\?]$/) {
            $reply = "$orig{who}: ".$reply;
        } else {
            $reply = "$reply, ".$orig{who};