substitute the right vars in getReply when used in tell. found by asuffield

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

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 9a5fa42eb67e1daf36fcc2165f849e73b3954ec2..dd5a9e7d1b8f6e8829de3a034a54f4a8327a7ed5 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -319,14 +319,15 @@ sub tell {
        return;
     }
 
-    # ...
+    my $oldwho         = $who;
+    my $oldmtype       = $msgType;
+    $who               = $target;
     my $result = &doQuestion($tell_obj);
-    # ^ returns '0' if nothing was found.
+       # ^ returns '0' if nothing was found.
+    $who               = $oldwho;
 
     # no such factoid.
     if ($result =~ /^0?$/) {
-       my $oldwho      = $who;
-       my $oldmtype    = $msgType;
        $who            = $target;
        $msgType        = "private";