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
