closed 17187 -- <factoid> are also <info>' doesn't work... also removed mailto:

[infobot.git] / src / Factoids / Update.pl

diff --git a/src/Factoids/Update.pl b/src/Factoids/Update.pl
index 8f12e1dbbd874e943ca6fd04c0fc63e2a8f1f7d9..de6cfa78848f1ca756ff65e8fb4ce1811e12f3b9 100644 (file)
--- a/src/Factoids/Update.pl
+++ b/src/Factoids/Update.pl
@@ -31,14 +31,8 @@ sub update {
        return $noreply;
     }
 
-    # nice 'are' hack (or work-around).
-    if ($mhs =~ /^are$/i and $rhs !~ /<\S+>/) {
-       $mhs = "is";
-       $rhs = "<REPLY> are ". $rhs;
-    }
-
     # invalid verb.
-    if ($mhs !~ /^is$/i) {
+    if ($mhs !~ /^(is|are)$/i) {
        &ERROR("UNKNOWN verb: $mhs.");
        return;
     }
@@ -67,8 +61,6 @@ sub update {
     }
 
     if (my $exists = &getFactoid($lhs)) {      # factoid exists.
-       chomp $exists;
-
        if ($exists eq $rhs) {
            &performAddressedReply("i already had it that way");
            return $noreply;
@@ -136,6 +128,14 @@ sub update {
            }
        }
     } else {                   # not exists.
+
+       # nice 'are' hack (or work-around).
+       if ($mhs =~ /^are$/i and $rhs !~ /<\S+>/) {
+           &DEBUG("Update: 'are' hack detected.");
+           $mhs = "is";
+           $rhs = "<REPLY> are ". $rhs;
+       }
+
        &status("enter: <$who> \'$lhs\' =$mhs=> \'$rhs\'");
        $count{'Update'}++;