Hi Phil,
for debugging, I insert the following code after line 679 print "Platform: $^O\n";:
if ($verbose > 8) {
print "Current dir: " . Cwd::getcwd() . "\n" if (eval { require Cwd });
print "Script name \$0: $0\n";
print "\$exeDir: $exeDir\n";
print "Exe name \$^X: $^X\n";
}
Maybe you find parts of it useful.
Running the pp packed Windows version, $0 points to the exe, and $^X is always "perl.exe" (although there is no perl.exe)
In a "normal" Windows Perl environment, $0 points to the script, and $^X points to the exe launching perl5x.dll
Oliver