Mon Feb 06 22:26:13 2017: Request 120131 was acted upon.
Transaction: Ticket created by [email protected]
Queue: PAR-Packer
Subject: PAR::Packer DynaLoader Problem On Strawberry Perl 5.24.1
Broken in: (no value)
Severity: (no value)
Owner: Nobody
Requestors: [email protected]
Status: new
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=120131 >
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;