Skip Menu |
 

This queue is for tickets about the Win32-Exe CPAN distribution.

Report information
The Basics
Id: 97360
Status: new
Priority: 0/
Queue: Win32-Exe

People
Owner: Nobody in particular
Requestors: DJIBEL [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.17
Fixed in: (no value)



Subject: Long length at E:/Strawberry/perl/vendor/lib/Win32/Exe/Resource/Version.pm line 113.
Download (untitled) / with headers
text/plain 2.1k
Dear, I have a problem to update information in executable file created by PAR::Packer. I am using Strawberry PERL 5.20 on Windows 8.1 64-bits and PAR::Packer version 1.019. Creation of executable file : pp -o hello.exe -e "print 'hello, world';" Test : Show quoted text
>hello.exe
hello, world Exe works. Now, i have wrote two scripts to see and change informations read-exe-info.pl #!/usr/bin/perl use strict; use warnings; use Win32::Exe; my $exe = Win32::Exe->new('C:/Users/djibel/Desktop/hello.exe'); # Get version information my $info = $exe->get_version_info; print qq($_ = $info->{$_}\n) for ( sort keys(%$info) ); print "============================\n\n"; update-exe-info.pl #!/usr/bin/perl use strict; use warnings; use Win32::Exe; my $exe = Win32::Exe->new('C:/Users/djibel/Desktop/hello.exe'); # Get version information $exe->update( info => [ 'CompanyName=My company', # 'FileDescription=My description', # <---------Problem 'FileVersion=1.2.3.4', 'InternalName=Internal name', # 'LegalCopyright=Legal Copyright', # <---------Problem 'OriginalFilename=Original File', 'ProductVersion=5.6.7.8', # 'Comments=My comments', # <---------Problem # 'LegalTrademarks=Legal Trademarks', # <---------Problem # 'ProductName=Product name', # <---------Problem ] ); Now I can make some tests on commande line (DOS) pp -o hello.exe -e "print 'hello, world';" && read-exe-info.pl && update-exe-info.pl && read-exe-info.pl Results : CompanyName = FileDescription = FileVersion = 0.0.0.0 InternalName = LegalCopyright = LegalTrademarks = OriginalFilename = ProductName = ProductVersion = 0.0.0.0 ============================ CompanyName = My company FileDescription = FileVersion = 1.2.3.4 InternalName = Internal name LegalCopyright = LegalTrademarks = OriginalFilename = Original File ProductName = ProductVersion = 5.6.7.8 ============================ BUT, if I uncomment one of theses keys : - FileDescription - LegalCopyright - Comments - LegalTrademarks - ProductName I have a problem : Long length at E:/Strawberry/perl/vendor/lib/Win32/Exe/Resource/Version.pm line 113. The exe is corrupt and not work. Any ideas ? Best Regards, DJIBEL


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.