How to disable MS-DOS 8.3 filenames in Perl? - perl

Question

I am trying to run some script in Windows Command Prompt that fails at the following line:
# see if there is NDK clang on $PATH, "universal" or "standalone"
if (which("clang") =~ m|^$ndk/.*/prebuilt/([^/]+)/|) { ... }
because which("clang") is in 8.3 format: C:\Users\dmitr\AppData\Local\Android\Sdk\ndk\231~1.777\TOOLCH~1\llvm\prebuilt\WINDOW~1\bin\clang.EXE
For example, if I add the following into that script:
print("$ndk\n");
print(which("clang"));
I get:
C:\Users\dmitr\AppData\Local\Android\Sdk\ndk\20.1.5948944
C:\Users\dmitr\AppData\Local\Android\Sdk\ndk\201~1.594\TOOLCH~1\llvm\prebuilt\WINDOW~1\bin\clang.EXE
This is executed as part of openssl's installation. It defines which as follows:
sub which
{
my ($name)=#_;
if (eval { require IPC::Cmd; 1; }) {
IPC::Cmd->import();
return scalar IPC::Cmd::can_run($name);
} else {
# if there is $directories component in splitpath,
# then it's not something to test with $PATH...
return $name if (File::Spec->splitpath($name))[1];
foreach (File::Spec->path()) {
my $fullpath = catfile($_, "$name$target{exe_extension}");
if (-f $fullpath and -x $fullpath) {
return $fullpath;
}
}
}
}
For PATH, I have the following:
PATH=
C:\Users\dmitr\AppData\Local\Android\Sdk\ndk\20.1.5948944\toolchains\llvm\prebuilt\windows-x86_64\bin;
C:\dev\PFiles\Strawberry\perl\bin;
C:\Python310\Scripts\;
C:\Python310\;
C:\WINDOWS\system32;
C:\WINDOWS;
C:\WINDOWS\System32\Wbem;
C:\WINDOWS\System32\WindowsPowerShell\v1.0\;
C:\WINDOWS\System32\OpenSSH\;
C:\Program Files\Git\cmd;
C:\Program Files\nodejs\;
C:\ProgramData\chocolatey\bin;
C:\Users\dmitr\AppData\Local\Microsoft\WindowsApps;
C:\Users\dmitr\AppData\Roaming\npm
(Line breaks added for readability.)

Answer 1

If you have IPC::Cmd installed, which uses it. That module returns 8.3 names for some reason.
>perl -E"say for grep /\bPuTTY\b/, split /;/, $ENV{PATH}"
C:\Program Files\PuTTY\
>perl -MIPC::Cmd -E"say IPC::Cmd::can_run('putty')"
C:\PROGRA~1\PuTTY\putty.EXE
You can work around the issue by removing the attempt to use IPC::Cmd.
sub which
{
my ($name)=#_;
# if (eval { require IPC::Cmd; 1; }) {
# IPC::Cmd->import();
# return scalar IPC::Cmd::can_run($name);
# } else {
# if there is $directories component in splitpath,
# then it's not something to test with $PATH...
return $name if (File::Spec->splitpath($name))[1];
foreach (File::Spec->path()) {
my $fullpath = catfile($_, "$name$target{exe_extension}");
if (-f $fullpath and -x $fullpath) {
return $fullpath;
}
}
# }
}
which is found in Configure.