Hi all,
I'm tring to embed perl in a c library. The perl code calls module Digest::SHA1. Here is the error message while executing the c app:
Can't load '/home/me/perl5/lib/site_perl/5.6.1/i686-linux/auto/Digest/SHA1/SHA1.so' for module Digest::SHA1: /home/me/perl5/lib/site_perl/5.6.1/i686-linux/auto/Digest/SHA1/SHA1.so: undefined symbol: PL_dowarn at /home/me/perl5/lib/5.6.1/i686-linux/DynaLoader.pm line 206.
at xauth.pm line 2
at xauth.pm line 2
The system does have another perl installation (same version) without above module.
the c code of xs_init() has been embeded into my c code and passed to perl_parse().
TIA
-s
below is the summary:
-----------------------------------------------------------------------------------------
Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
Platform:
osname=linux, osvers=2.4.9-e.16smp, archname=i686-linux
uname='linux pdc-dev235.lab.primus.ca 2.4.9-e.16smp #1 smp mon mar 17 16:55:45 est 2003 i686 unknown '
config_args='-Dprefix=/home/me/perl5'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
Compiler:
cc='gcc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-fno-strict-aliasing -I/usr/local/include'
ccver! sion='', gccversion='2.96 20000731 (Red Hat Linux 7.2 2.96-108.1)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil
perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
libc=/lib/libc-2.2.4.so, so=so, useshrplib=true, libperl=libperl.so
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic -Wl,-rpath,/home/me/perl5/lib/5.6.1/i686-linux/CORE'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Platform:
osname=linux, osvers=2.4.9-e.16smp, archname=i686-linux
uname='linux pdc-dev235.lab.primus.ca 2.4.9-e.16smp #1 smp mon mar 17 16:55:45 est 2003 i686 unknown '
config_args='-Dprefix=/home/me/perl5'
hint=recommended, useposix=true, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
Compiler:
cc='gcc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-fno-strict-aliasing -I/usr/local/include'
ccver! sion='', gccversion='2.96 20000731 (Red Hat Linux 7.2 2.96-108.1)', gccosandvers=''
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
alignbytes=4, usemymalloc=n, prototype=define
Linker and Libraries:
ld='gcc', ldflags =' -L/usr/local/lib'
libpth=/usr/local/lib /lib /usr/lib
libs=-lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt -lutil
perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
libc=/lib/libc-2.2.4.so, so=so, useshrplib=true, libperl=libperl.so
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic -Wl,-rpath,/home/me/perl5/lib/5.6.1/i686-linux/CORE'
cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'
Characteristics of this binary (from libperl):
Compile-time options: USE_LARGE_FILES
Built under linux
Compiled at Jan 27 2005 22:21:23
@INC:
/home/me/perl5/lib/5.6.1/i686-linux
/home/me/perl5/lib/5.6.1
/home/me/perl5/lib/site_perl/5.6.1/i686-linux
/home/me/perl5/lib/site_perl/5.6.1
/home/me/perl5/lib/site_perl
.
-----------------------------------------------------------------------------------------
and the
the xauth.pm looks like this:
/////////////////////////////////////////////////////
package xauth;
use Digest::SHA1( sha1_base64 );
sub new {
use Digest::SHA1( sha1_base64 );
sub new {
...
snap
snap
1;
_______________________________________________ ActivePerl mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
