19 lines
589 B
Diff
19 lines
589 B
Diff
--- wordlist.orig/scowl/src/add-affixes 2012-10-11 13:05:58.864864580 +0100
|
|
+++ wordlist/scowl/src/add-affixes 2012-10-11 14:11:05.144908897 +0100
|
|
@@ -74,6 +74,15 @@
|
|
@a = grep {not $remove{"$w:$p:$_"}} @a;
|
|
next unless @a;
|
|
$lookup{$w} .= join("\n",@a)."\n";
|
|
+ next unless $p eq 'N';
|
|
+
|
|
+ # For irregular nouns that have plurals that do not end in s
|
|
+ # then add the possessive form of the plural as well
|
|
+ foreach (@a) {
|
|
+ next unless (substr($_,-1,1) ne 's');
|
|
+ $possessive{$_} = "$_\'s\n";
|
|
+ $lookup{$w} .= $possessive{$_};
|
|
+ }
|
|
}
|
|
|
|
unless ($no_possessive) {
|