Skip Menu |
 

This queue is for tickets about the PAR-Packer CPAN distribution.

Report information
The Basics
Id: 77631
Status: resolved
Priority: 0/
Queue: PAR-Packer

People
Owner: Nobody in particular
Requestors: oliver.fitz [...] partner.bmw.de
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 1.013
Fixed in: 1.014



Subject: Missing libstdc++-6.dll on running packed executables with Strawberry Perl 5.16.0.1
Download (untitled) / with headers
text/plain 718b
PAR:Packer 1.013 Strawberry Perl 5.16.0.1 Windows XP SP3 Packing a script with pp works fine, although running the packed executable as a standalone .exe on another computer results in a messagebox complaining about a missing "libstdc++-6.dll". Adding the library with -l doesn't change that. The problem occures, because as of Strawberry Perl 5.16, the mentioned library is dynamically loaded by the perl516.dll. PAR:Packer already contains a workaround for a similar issue with "libgcc_*.dll". Applying the exact same procedure for "libstdc++*.dll" solves the problem. I attached my patched files which generate the boot/parl.exe. (The file includes the patch for "unexpected version string length 68 != 32 + 8")
Attachments
Subject: boot.c
Download boot.c
text/x-csrc 6.6k
#undef readdir #ifdef _MSC_VER #include <io.h> #else #include <sys/types.h> #include <unistd.h> #endif typedef struct my_chunk { int len; unsigned char *buf; } my_chunk; /* returns 0 if OK, -1 if error */ static int write_chunks(int fd, my_chunk *chunks) { while (chunks->len) { if ( write(fd, chunks->buf, chunks->len) != chunks->len ) return -1; chunks++; } return 0; } #include "mktmpdir.c" #include "my_par.c" #include "my_libperl.c" #ifdef LOAD_MY_LIBGCC #include "my_libgcc.c" #endif #ifdef LOAD_MY_LIBSTDCPP #include "my_libstdcpp.c" #endif /* Note: these two defines must be negative so as not to collide with * any real file descriptor */ #define MKFILE_ERROR (-1) #define MKFILE_ALREADY_EXISTS (-2) static int my_mkfile (char* argv0, char* stmpdir, const char* name, off_t expected_size, char** file_p) { int i; struct stat statbuf; *file_p = malloc(strlen(stmpdir) + 1 + strlen(name) + 1); sprintf(*file_p, "%s/%s", stmpdir, name); i = open(*file_p, O_CREAT | O_EXCL | O_WRONLY | OPEN_O_BINARY, 0755); if ( i != -1 ) return i; if ( errno == EEXIST && par_lstat(*file_p, &statbuf) == 0 && statbuf.st_size == expected_size ) return MKFILE_ALREADY_EXISTS; fprintf(stderr, "%s: creation of %s failed (errno=%i)\n", argv0, *file_p, errno); return MKFILE_ERROR; } /* turn off automatic globbing of process arguments when using MingW */ #if defined(WIN32) && defined(__MINGW32__) int _CRT_glob = 0; #endif #ifdef WIN32 #define unpack_S(p) (*(WORD*)(p)) #define unpack_L(p) (*(DWORD*)(p)) #define ASSERT(expr, msg) if (!(expr)) fprintf(stderr, "assertion failed: %s\n", msg) /* seek file descriptor fd to member Subsystem (a WORD) of the * IMAGE_OPTIONAL_HEADER structure of a Windows executable * (so that the next 2 bytes read/written from/to fd get/set Subsystem); * cf. sub _fix_console in PAR/Packer.pm */ void seek_to_subsystem( int fd ) { BYTE buf[64]; DWORD off; WORD size, magic; lseek(fd, 0, SEEK_SET); // CHECK != -1 read(fd, buf, 64); // CHECK == 64 ASSERT(unpack_S(buf) == 0x5a4d, "MZ magic bytes"); // "MZ" off = unpack_L(buf+60); lseek(fd, off, SEEK_SET); // CHECK != -1 read(fd, buf, 4 + 20 + 2); // CHECK == 4 + 20 + 2 ASSERT(unpack_L(buf) == 0x4550, "PE header"); // "PE\0\0" size = unpack_S(buf+20); magic = unpack_S(buf+24); ASSERT(( size == 224 && magic == 0x10b ) || ( size == 240 && magic == 0x20b ), "IMAGE_NT_OPTIONAL_HDR_MAGIC"); lseek(fd, off + 4 + 20 + 68, SEEK_SET); // CHECK != -1 } #endif int main ( int argc, char **argv, char **env ) { int i; char *stmpdir; char *my_file; char *my_perl; char *my_prog; char buf[20]; /* must be large enough to hold "PAR_ARGV_###" */ #ifdef WIN32 typedef BOOL (WINAPI *pALLOW)(DWORD); HINSTANCE hinstLib; pALLOW ProcAdd; #ifndef ASFW_ANY #define ASFW_ANY -1 #endif #endif #define DIE exit(255) par_init_env(); stmpdir = par_mktmpdir( argv ); if ( !stmpdir ) DIE; /* error message has already been printed */ i = my_mkdir(stmpdir, 0700); if ( i == -1 && errno != EEXIST) { fprintf(stderr, "%s: creation of private cache subdirectory %s failed (errno= %i)\n", argv[0], stmpdir, errno); DIE; } /* extract custom Perl interpreter into stmpdir (but under the same basename as argv[0]) */ my_prog = par_findprog(argv[0], strdup(par_getenv("PATH"))); i = my_mkfile( argv[0], stmpdir, par_basename(my_prog), size_load_my_par, &my_perl ); if ( i != MKFILE_ALREADY_EXISTS ) { if ( i == MKFILE_ERROR ) DIE; if ( write_chunks(i, chunks_load_my_par) == -1 ) DIE; if ( close(i) == -1 ) DIE; chmod(my_perl, 0755); #ifdef __hpux { /* HPUX will only honour SHLIB_PATH if the executable is specially marked */ char *chatr_cmd = malloc(strlen(my_perl) + 200); sprintf(chatr_cmd, "/usr/bin/chatr +s enable %s > /dev/null", my_perl); system(chatr_cmd); } #endif #ifdef WIN32 { /* copy IMAGE_OPTIONAL_HEADER.Subsystem (GUI vs console) * from this executable to the just extracted my_perl */ int fd; WORD subsystem; fd = open(my_prog, O_RDONLY | OPEN_O_BINARY, 0755); ASSERT(fd != -1, "open my_prog"); seek_to_subsystem(fd); read(fd, &subsystem, 2); // CHECK == 2 close(fd); // CHECK != -1 fd = open(my_perl, O_RDWR | OPEN_O_BINARY, 0755); ASSERT(fd != -1, "open my_perl"); seek_to_subsystem(fd); write(fd, &subsystem, 2); // CHECK == 2 close(fd); // CHECK != -1 } #endif } /* extract libperl DLL into stmpdir */ i = my_mkfile( argv[0], stmpdir, name_load_my_libperl, size_load_my_libperl, &my_file ); if ( i != MKFILE_ALREADY_EXISTS ) { if ( i == MKFILE_ERROR ) DIE; if ( write_chunks(i, chunks_load_my_libperl) == -1 ) DIE; if ( close(i) == -1 ) DIE; chmod(my_file, 0755); } #ifdef LOAD_MY_LIBGCC /* extract libgcc DLL into stmpdir */ i = my_mkfile( argv[0], stmpdir, name_load_my_libgcc, size_load_my_libgcc, &my_file ); if ( i != MKFILE_ALREADY_EXISTS ) { if ( i == MKFILE_ERROR ) DIE; if ( write_chunks(i, chunks_load_my_libgcc) == -1 ) DIE; if ( close(i) == -1 ) DIE; chmod(my_file, 0755); } #endif #ifdef LOAD_MY_LIBSTDCPP /* extract libgcc DLL into stmpdir */ i = my_mkfile( argv[0], stmpdir, name_load_my_libstdcpp, size_load_my_libstdcpp, &my_file ); if ( i != MKFILE_ALREADY_EXISTS ) { if ( i == MKFILE_ERROR ) DIE; if ( write_chunks(i, chunks_load_my_libstdcpp) == -1 ) DIE; if ( close(i) == -1 ) DIE; chmod(my_file, 0755); } #endif /* save original argv[] into environment variables PAR_ARGV_# */ sprintf(buf, "%i", argc); par_setenv("PAR_ARGC", buf); for (i = 0; i < argc; i++) { sprintf(buf, "PAR_ARGV_%i", i); par_unsetenv(buf); par_setenv(buf, argv[i]); } /* finally spawn the custom Perl interpreter */ #ifdef WIN32 hinstLib = LoadLibrary("user32"); if (hinstLib != NULL) { ProcAdd = (pALLOW) GetProcAddress(hinstLib, "AllowSetForegroundWindow"); if (ProcAdd != NULL) { (ProcAdd)(ASFW_ANY); } } par_setenv("PAR_SPAWNED", "1"); i = spawnvpe(P_WAIT, my_perl, (const char* const*)argv, (const char* const*)environ); par_cleanup(stmpdir); exit(i); #else execvp(my_perl, argv); DIE; #endif }
Subject: Makefile.PL
Download Makefile.PL
text/x-perl 11.9k

Message body is not shown because it is too large.

Problem was fixed similar to your patch in PAR::Packer 1.014


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.