On 2020-06-07 18:49, ToddAndMargo via perl6-users wrote:
~~~~~~~~~~~~~~~~~~~~~
#!/usr/bin/env raku
# Note: this has to be the first thing at the top
my @LibPath;
BEGIN {
for ('K:/Windows/NtUtil', 'X:/NtUtil') -> $candidate {
push @LibPath, $candidate if $candidate.IO.d;
}
push @LibPath, 'C:/NtUtil';
push @LibPath, '.';
}
use lib @LibPath;
dd @LibPath;
dd $*REPO.repo-chain.lines;
~~~~~~~~~~~~~~~~~~~~~~~~~~
raku use.lib.test.pl6
Array @LibPath = ["K:/Windows/NtUtil", "C:/NtUtil", "."]
("K:\\Windows\\NtUtil C:\\NtUtil C:\\Users\\todd\\.raku
C:\\rakudo\\share\\perl6\\site C:\\rakudo\\share\\perl6\\vendor
C:\\rakudo\\share\\perl6\\core
CompUnit::Repository::AbsolutePath<131860432>
CompUnit::Repository::NQP<124427016>
CompUnit::Repository::Perl5<124427056>",).Seq
AHHHHH !!!!
The above worked fine on my W10 virtual machine
when called from Cobian, but on a customer's (native)
Windows 10, I had to go back to using to comment out
method.