Fri Feb 16 07:50:32 2018: Request 124445 was acted upon.
Transaction: Ticket created by adr-perlc...@linuxtech.net
       Queue: PAR-Packer
     Subject: Par-Packer 'falsifies' PerlTk server() and Win32 GetOSName() and 
GetOSVersion() output on Windows 10
   Broken in: (no value)
    Severity: (no value)
       Owner: Nobody
  Requestors: adr-perlc...@linuxtech.net
      Status: new
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=124445 >


When calling the Perl-Tk '$mw->server()' function or the Win32 
'GetOSName()' and 'GetOSVersion()' funnctions on Windows 10 in a Perl 
script the output is correct as expected:

$mw->server() returns 'Windows 10.0 10586 Win32'

Win32::GetOSName() returns 'Win10Business (64-bit)'

Win32::GetOSVersion() returns '100105862002561'

But when creating an exe with Par::Packer containing the above 
functions and running it, the output changes to:

$mw->server() returns 'Windows 6.2 9200 Win32'

Win32::GetOSName() returns 'Win8Professional (64-bit)'

Win32::GetOSVersion() returns '6292002002561'

Please see the following perlmonks node for examples scripts and for 
confirmation of the issue by at least one other Perl user:
http://www.perlmonks.org/?node_id=1209281

It looks to me like Par-Packer is somehow intercepting and 'falsifying' 
the return values of these Perl functions.

Reply via email to