X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2Fproc-alt12dicts;h=3b728d9e2f6f22b1c53428ecfddf81f33fd0f895;hb=8ace84503eae30ad101165a9bf4c96ac1c87f9b1;hp=a2a7c0fd3a0156f13a8d54dde23bd5105ec949bb;hpb=b13ea8a082364672c6de2b010e558211ff52ec9a;p=deb_pkgs%2Fscowl.git diff --git a/src/proc-alt12dicts b/src/proc-alt12dicts index a2a7c0f..3b728d9 100755 --- a/src/proc-alt12dicts +++ b/src/proc-alt12dicts @@ -51,8 +51,8 @@ open NV, ">not-variant.lst"; while () { 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; - - - - - - -