don't reply on sed unless there was a replacement

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

diff --git a/src/IRC/IrcHelpers.pl b/src/IRC/IrcHelpers.pl
index ea4fd0f8856ef1806bafdf07cdc01da13796dd9e..7e273d657c37608668a9239c9e15122ae1cad687 100644 (file)
--- a/src/IRC/IrcHelpers.pl
+++ b/src/IRC/IrcHelpers.pl
@@ -235,9 +235,12 @@ sub hookMsg {
            $msgType =~ /public/ and
             $orig{message} =~ /^s\/([^;\/]*)\/([^;\/]*)\/([g]*)$/) {
        my $sedmsg = $seencache{$who}{'msg'};
-       eval "\$sedmsg =~ s/\Q$1\E/\Q$2\E/$3;"
-       &DEBUG("sed \"$orig{message}\" \"$sedmsg\"");
-       &msg($talkchannel, "$orig{who} meant: $sedmsg");
+       eval "\$sedmsg =~ s/\Q$1\E/\Q$2\E/$3;";
+       if ($sedmsg ne $seencache{$who}{'msg'}) {
+           &DEBUG("sed \"" . $orig{message} . "\" \"" .
+                   $seencache{$who}{'msg'} . "\" \"" . $sedmsg. "\"");
+           &msg($talkchannel, "$orig{who} meant: $sedmsg");
+       }
     } elsif ((!$skipmessage or &IsChanConf('seenStoreAll') > 0) and
            &IsChanConf('seen') > 0 and $msgType =~ /public/) {
        $seencache{$who}{'time'} = time();