p5pRT
commented
20 years ago From dtucker@zip.com.au
This is a bug report for perl from dtucker@zip.com.au\, generated with the help of perlbug 1.34 running under perl v5.8.0.
I tried building Math::BigInteger 1.0 from CPAN on my Redhat 8 box (Perl 5.8.0) and found that "make test" failed with the following error:
PERL_DL_NONLAZY=1 /usr/bin/perl "-Iblib/lib" "-Iblib/arch" test.pl Can't load 'blib/arch/auto/Math/BigInteger/BigInteger.so' for module Math::BigInteger: blib/arch/auto/Math/BigInteger/BigInteger.so: undefined symbol: Fputc at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/DynaLoader.pm line 229. at test.pl line 3 Compilation failed in require at test.pl line 3. BEGIN failed--compilation aborted at test.pl line 3. make: *** [test_dynamic] Error 255
I was able to make it run by doing s/Fputs/fputc/ as per the attached patch\, the tests pass and it works for me. I don't know if there was a reason for the capitalization or not.
I tried emailing the address listed in the module's CPAN_USERID but it bounced.
Inline Patch
```diff diff -ru Math-BigInteger-1.0.orig/bn.c Math-BigInteger-1.0/bn.c --- Math-BigInteger-1.0.orig/bn.c 1996-05-06 01:30:55.000000000 +1000 +++ Math-BigInteger-1.0/bn.c 2003-12-13 02:02:09.000000000 +1100 @@ -304,8 +304,8 @@ int i,j,v,z=0; static char *hex="0123456789ABCDEF"; - if (a->neg) Fputc('-',fp); - if (a->top == 0) Fputc('0',fp); + if (a->neg) fputc('-',fp); + if (a->top == 0) fputc('0',fp); for (i=a->top-1; i >=0; i--) { for (j=BITS2-4; j >= 0; j-=4) @@ -314,7 +314,7 @@ v=(a->d[i]>>j)&0x0f; if (z || (v != 0)) { - Fputc(hex[v],fp); + fputc(hex[v],fp); z=1; } } ----------------------------------------------------------------- --- ```Flags: category=library severity=low
Site configuration information for perl v5.8.0:
Configured by bhcompile at Wed Aug 13 11:45:59 EDT 2003.
Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration: Platform: osname=linux\, osvers=2.4.21-1.1931.2.382.entsmp\, archname=i386-linux-thread-multi uname='linux stripples.devel.redhat.com 2.4.21-1.1931.2.382.entsmp #1 smp wed aug 6 17:18:52 edt 2003 i686 i686 i386 gnulinux ' config_args='-des -Doptimize=-O2 -g -pipe -march=i386 -mcpu=i686 -Dmyhostname=localhost -Dperladmin=root@localhost -Dcc=gcc -Dcf_by=Red Hat\, Inc. -Dinstallprefix=/usr -Dprefix=/usr -Darchname=i386-linux -Dvendorprefix=/usr -Dsiteprefix=/usr -Dotherlibdirs=/usr/lib/perl5/5.8.0 -Duseshrplib -Dusethreads -Duseithreads -Duselargefiles -Dd_dosuid -Dd_semctl_semun -Di_db -Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl -Ubincompat5005 -Uversiononly -Dpager=/usr/bin/less -isr' hint=recommended\, useposix=true\, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n\, bincompat5005=undef Compiler: cc='gcc'\, ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm'\, optimize='-O2 -g -pipe -march=i386 -mcpu=i686'\, cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm' ccversion=''\, gccversion='3.2.2 20030222 (Red Hat Linux 3.2.2-5)'\, 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\, 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 -lpthread -lc -lcrypt -lutil perllibs=-lnsl -ldl -lm -lpthread -lc -lcrypt -lutil libc=/lib/libc-2.3.2.so\, so=so\, useshrplib=true\, libperl=libperl.so gnulibc_version='2.3.2' Dynamic Linking: dlsrc=dl_dlopen.xs\, dlext=so\, d_dlsymun=undef\, ccdlflags='-rdynamic -Wl\,-rpath\,/usr/lib/perl5/5.8.0/i386-linux-thread-multi/CORE' cccdlflags='-fPIC'\, lddlflags='-shared -L/usr/local/lib'
Locally applied patches: MAINT18379
@INC for perl v5.8.0: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0 .
Environment for perl v5.8.0: HOME=/home/dtucker LANG=C LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/home/dtucker/bin:/usr/local/bin:/usr/kerberos/bin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin:/opt/openssh/bin:/usr/sbin:/sbin:/usr/X11R6/bin:/usr/local/sbin:/usr/local/avr/bin:/usr/sbin:/sbin:/usr/X11R6/bin:/usr/local/sbin:/usr/local/avr/bin:/usr/sbin:/sbin:/usr/palm/bin PERL_BADLANG (unset) SHELL=/bin/bash
Migrated from rt.perl.org#24648 (status was 'rejected')
Searchable as RT24648$