Run extraction script directly with shell

Altai-man · Altai-man · commit 2abaecd747c6 · 2017-02-12T17:00:46.000+02:00
diff --git a/xt/examples-compilation.t b/xt/examples-compilation.t
@@ -5,7 +5,7 @@ use File::Find;
 
 # Extract examples
 chdir $?FILE.IO.dirname.IO.dirname;
-my $p1 = run 'make', 'extract-examples';
+my $p1 = shell 'perl6 util/extract-examples.p6 --source-path=./doc/ --prefix=./examples/';
 chdir 'examples';
 
 my @files = find(dir => '.',
