factoids: look for duplicates case-insensitively
This commit is contained in:
parent
6190733079
commit
f492592735
|
@ -79,7 +79,7 @@ sub learn {
|
||||||
|
|
||||||
my $entries = $db{$name};
|
my $entries = $db{$name};
|
||||||
return &$respond("duplicate definition")
|
return &$respond("duplicate definition")
|
||||||
if grep { $_ eq $definition } @$entries;
|
if grep { lc $_ eq lc $definition } @$entries;
|
||||||
|
|
||||||
push @$entries, $definition;
|
push @$entries, $definition;
|
||||||
&$respond("saved as #${\scalar @$entries}");
|
&$respond("saved as #${\scalar @$entries}");
|
||||||
|
|
Loading…
Reference in New Issue