New upstream version 2017.01.22

[deb_pkgs/scowl.git] / src / add-affixes

diff --git a/src/add-affixes b/src/add-affixes
index 37f25fbdba1458395f918854e3577474d815836a..814e35f8e76086ab54a3e5ebb0716ec0e84e02d3 100755 (executable)
--- 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;