debug output from -ver

[obetz]

Hi Phil,

for debugging, I insert the following code after line 679 print "Platform: $^O\n";:

Code Select Expand


            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