1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 15:45:42 -04:00

cosmetic changes to "is also"

This commit is contained in:
Ryan Voots 2010-10-07 16:22:22 -04:00
parent 063180ec23
commit 2c890fa4b4

View file

@ -188,7 +188,7 @@ sub store_factoid {
elsif( $predicate =~ s/^\s*also\s+// ) {
my $fact = $self->_db_get_fact( _clean_subject( $subject ), $author );
$predicate = $fact->{predicate} . " " . $predicate;
$predicate = $fact->{predicate} . " | " . $predicate;
}
return unless