X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fadd-affixes;h=814e35f8e76086ab54a3e5ebb0716ec0e84e02d3;hb=8ace84503eae30ad101165a9bf4c96ac1c87f9b1;hp=37f25fbdba1458395f918854e3577474d815836a;hpb=393ed6aebb9add0a5ff89d0eed949fc2d128a3e8;p=deb_pkgs%2Fscowl.git

diff --git a/src/add-affixes b/src/add-affixes
index 37f25fb..814e35f 100755
--- a/src/add-affixes
+++ b/src/add-affixes
@@ -37,7 +37,8 @@ my %possessive_cross;
 while (<F>) {
   s/\r?\n$// or die;
   # (flags, base word, part of speach, infl forms)
-  my ($d,$w,$p,$a) = /^([-@]?)(\w+) (.).*: ?(.*)$/ or die;
+  my ($d,$w,$p,$a) = /^([-@\+]?)(\w+) (.).*: ?(.*)$/ or die "Bad line: >$_<";
+  $d =~ tr/+//d;
   $possessive{$w} = "$w\'s\n" if $p eq 'N' && ($d eq '' || $use_all);
   next if $use_all;
   my @a = $a =~ /([-~@!\w]+)/g;