Eliminates confusing characters for aspell

This fixes #975. Added some awk code that substitutes \ and |. Also eliminated "ull" and "ffix" from skiplist to test that it effectively works.
Raku · May 26, 2018 · 6a69c0b · 6a69c0b
1 parent c8cedca
commit 6a69c0b
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 3 deletions.
diff --git a/xt/aspell.t b/xt/aspell.t
@@ -63,7 +63,7 @@ my @jobs;
 for @files -> $file {
     if $file ~~ / '.pod6' $/ {
         my $pod = Proc::Async.new($*EXECUTABLE-NAME, '--doc', $file);
-        my $fixer = Proc::Async.new('awk', 'BEGIN {print "!"} {print "^" $0}');
+        my $fixer = Proc::Async.new('awk', 'BEGIN {print "!"} {print "^" gsub(/[\\:]/,"",$0)}');
         $fixer.bind-stdin: $pod.stdout: :bin;
         my $proc = Proc::Async.new(<aspell -a -l en_US --ignore-case --extra-dicts=./xt/aspell.pws>);
         $proc.bind-stdin: $fixer.stdout: :bin;

diff --git a/xt/code.pws b/xt/code.pws
@@ -170,7 +170,6 @@ fbtb
 fffd
 ffff
 ffffffffffffffffffffffffffffffff
-ffix
 fgh
 filea
 fileb
@@ -440,7 +439,6 @@ typehouse
 tys
 uares
 uia
-ull
 unitish
 unspec
 userblock