in reply to why does par packer cause incorrect Perl-Tk server() output?

Release NT 6.2 is Windows 8, the latest build of which is 9200 (source). Run the following perl script:

#!/usr/bin/perl
use strict;
use warnings;

use feature 'say';
use Win32;

say Win32::GetOSName();
say Win32::GetOSVersion();

[download]

package (pp -x -o OSver.exe script.pl), execute and compare the output.

Update: see issue with a depreciated API.

Replies are listed 'Best First'.
Re^2: why does par packer cause incorrect Perl-Tk server() output?
by perltux (Monk) on Feb 16, 2018 at 11:53 UTC
    Output from your script:

    Win10Business (64-bit)
100105862002561

    [download]


    output from par packed exe of your script: 

    Win8Professional (64-bit)
6292002002561

    [download]


    so same issue with the Win32 module, when par packed.
[reply]
[d/l]
[select]

      Time to start digging through pp, PAR to find the root cause.

[reply]

In Section Seekers of Perl Wisdom