factoids: look for duplicates case-insensitively

This commit is contained in:
Přemysl Eric Janouch 2016-02-29 02:50:53 +01:00
parent 6190733079
commit f492592735

View File

@ -79,7 +79,7 @@ sub learn {
my $entries = $db{$name};
return &$respond("duplicate definition")
if grep { $_ eq $definition } @$entries;
if grep { lc $_ eq lc $definition } @$entries;
push @$entries, $definition;
&$respond("saved as #${\scalar @$entries}");