Re: need native call help

On 4/16/24 20:57, ToddAndMargo via perl6-users wrote:
> 
>     $LongName = $FileName;
>     if $FileName.chars >= MAX_PATH  { $LongName = Q[\\?\] ~ $FileName; }

What the about is all about is that MAX_PATH, which
limits the file name to 260 characters, can go up to
32,767 wide characters, prepend "\\?\" to the path.

I altered the above line since posting to:

    $LongName = $FileName;
    if $FileName.chars >= MAX_PATH  &&  not $FileName.starts-with( 
Q[\\?] )  {
        $LongName = Q[\\?\] ~ $FileName;
    }


in case I forget that my module prepends the `\\>\` if
I exceed MAX_PATH