X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Fscowl.git;a=blobdiff_plain;f=current%2Fsrc%2Fproc-alt12dicts;h=a2a7c0fd3a0156f13a8d54dde23bd5105ec949bb;hp=2232ac4c72544109fe7d905caf139c9f64299f84;hb=7b14ba883fb1046508c44be37b4c6ba5da5feacf;hpb=b72d489091bf51f14f63db9bec15fe71fa52a395

diff --git a/current/src/proc-alt12dicts b/current/src/proc-alt12dicts
index 2232ac4..a2a7c0f 100755
--- a/current/src/proc-alt12dicts
+++ b/current/src/proc-alt12dicts
@@ -22,7 +22,8 @@ while (<IN>) {
     s/\r?\n$// or die;
     ($w, $f, $s) = /^(.+):?\t(.)([!?]?)$/ or die "Bad Line: $_";
     next unless $w =~ /^[A-Za-z\']+$/;
-    $already_variant{$w} = 1;
+   #print "$w -- $f -- $s\n";
+   $already_variant{$w} = 1;
     if ($s eq '!' || $s eq '') {
 	print OYES $w, "\n" if $f eq '#';
 	print BYES $w, "\n" if $f eq '&';