Merge pull request #2630 from cfa/aspell

Workaround for aspell backslash escaping issues (#975).
Raku · Mar 11, 2019 · a96a573 · a96a573
2 parents 112a72d + 155ea45
commit a96a573
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/xt/aspell.t b/xt/aspell.t
@@ -60,8 +60,8 @@ sub test-it($promises, $file) {
 for @files -> $file {
     my $input-file = $file.ends-with('.pod6') ?? Pod::Cache.cache-file($file) !! $file;
 
-    my $fixer = Proc::Async.new('awk', 'BEGIN {print "!"} {gsub("\\\\","",$0); print "^" $0}', $input-file);
-    my $proc = Proc::Async.new(<aspell -a -l en_US --ignore-case --extra-dicts=./xt/aspell.pws>);
+    my $fixer = Proc::Async.new(«perl -pne ｢BEGIN {print "!\n"} s/\S\K\\[tn]/ /g; s/^/^/｣ $input-file»);
+    my $proc = Proc::Async.new(<aspell -a -l en_US --ignore-case --extra-dicts=./xt/aspell.pws --mode=url>);
     $proc.bind-stdin: $fixer.stdout: :bin;
     %output{$file}="";
     $proc.stdout.tap(-> $buf { %output{$file} = %output{$file} ~ $buf });