develooper Front page | perl.par | Postings from February 2018

[rt.cpan.org #124445] Par-Packer 'falsifies' PerlTk server() andWin32 GetOSName() and GetOSVersion() output on Windows 10

Thread Previous
From:
Arne via RT
Date:
February 16, 2018 12:50
Subject:
[rt.cpan.org #124445] Par-Packer 'falsifies' PerlTk server() andWin32 GetOSName() and GetOSVersion() output on Windows 10
Message ID:
rt-4.0.18-19682-1518785433-1959.124445-15-0@rt.cpan.org
Fri Feb 16 07:50:32 2018: Request 124445 was acted upon.
Transaction: Ticket created by adr-perlcpan@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-perlcpan@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.

Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About