Mon Feb 06 17:52:12 2017: Request 120127 was acted upon. Transaction: Ticket created by james.rushwo...@bozobus.net Queue: PAR-Packer Subject: PAR::Packer DynaLoader Problem On Strawberry Perl 5.24.1 Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: james.rushwo...@bozobus.net Status: new Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=120127 >
The attached script when compiled with Strawberry Perl pp on 64bit Windows 10 creates an executable which will not run on a 64 bit Windows 10 machine which does not have Strawberry Perl installed, it won't run on a 64bit Windows 7 machine without Strawberry Perl installed either. The program will not run on a machine with ActiveState Perl installed giving the same error message. This is the error message: Can't load 'C:\Users\NTHOMP~1\AppData\Local\Temp\par-6e74686f6d70736f6e\cache-a689a490f84fa6e443fb002bba992a32a268b542\e88b1fb1.xs.dll' for module Tk::PNG: load_file:The specified module could not be found at C:/Perl64/perl/lib/DynaLoader.pm line 193. at C:/Perl64/perl/vendor/lib/PAR/Heavy.pm line 123. Compilation failed in require at script/module_test.pl line 39. BEGIN failed--compilation aborted at script/module_test.pl line 39. all of the modules after the DynaLoader comment cause a variation of this error message. This is the Perl version: C:\Users\james\perlapp>perl -v This is perl 5, version 24, subversion 1 (v5.24.1) built for MSWin32-x64-multi-thread and this is the module version: C:\Users\james>perl -MPAR::Packer -le "print $PAR::Packer::VERSION" 1.036
#!/usr/bin/perl # use warnings; use strict; # use Tk; use Tk::LabFrame; use Tk::BrowseEntry; use Tk::Dialog; use Tk::DialogBox; use Tk::ROText; use Tk::NoteBook; use Tk::WorldCanvas; use Tk::Pane; use Tk::FontDialog; use Tk::Panedwindow; use Tk::WorldCanvas; use Tk::Splash; # use Time::SoFar qw( runtime runinterval figuretimes ); use Cwd; use File::Touch; use File::Basename; use File::MMagic; use File::Copy; use Spreadsheet::ParseExcel; use Spreadsheet::WriteExcel::Big; use Excel::Writer::XLSX; use String::CRC::Cksum qw(cksum); use Tie::Watch; use List::Compare::Functional qw/get_unique get_complement/; use Carp; use Scalar::Util::Numeric qw(isnum); use Number::Format qw(:subs); use Getopt::Long; use DBI; use DBD::Oracle; # DynaLoader fails with Strawberry Perl PAR::Packer use Tk::PNG; use Tk::Spectrum; use Tk::HyperText; use Spreadsheet::ParseXLSX;