New upstream version 2017.01.22

[deb_pkgs/scowl.git] / src / proc-alt12dicts

diff --git a/src/proc-alt12dicts b/src/proc-alt12dicts
index a2a7c0fd3a0156f13a8d54dde23bd5105ec949bb..3b728d9e2f6f22b1c53428ecfddf81f33fd0f895 100755 (executable)
--- a/src/proc-alt12dicts
+++ b/src/proc-alt12dicts
@@ -51,8 +51,8 @@ open NV, ">not-variant.lst";
 while (<IN>)
 {
     s/\r?\n$// or die;
-    ($total, $not_variant, $variant, $non_american, $word, $abrv_mark) 
-       = /^(..): (..) (..)\# (..)\&   (.+?)([:.]?)$/ or die "Bad Line:$_";
+    ($total, $not_variant, $variant, $non_american, $second_class, $word, $abrv_mark) 
+       = /^(..): (..) (..)\# (..)\& (..)\=   (.+?)([:.]?)$/ or die "Bad Line:$_";
     $_ = $word;
     $not_variant  = 0 if $not_variant  eq ' -';
     $variant      = 0 if $variant      eq ' -';
@@ -87,10 +87,3 @@ close O11;
 close O05;
 close O02;
 close IN;
-
-
-
-
-
-
-