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.

Reply via email to