Not OK: perl v5.7.0 +SUIDMAIL +DEVEL6866 on i686-linux-thread-multi 2.2.13

[p5pRT]

Migrated from rt.perl.org#3923 (status was 'resolved')

Searchable as RT3923$

[p5pRT]

From @abigail

As reported before\, warnings during the build. With or without 64 bitness.

Storable.xs​: In function `init_perinterp'​: Storable.xs​:794​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `is_storing'​: Storable.xs​:1069​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `is_retrieving'​: Storable.xs​:1081​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `last_op_in_netorder'​: Storable.xs​:1096​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `do_store'​: Storable.xs​:2560​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `mbuf2sv'​: Storable.xs​:2700​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `mstore'​: Storable.xs​:2713​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `net_mstore'​: Storable.xs​:2732​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `do_retrieve'​: Storable.xs​:4191​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​: In function `dclone'​: Storable.xs​:4382​: warning​: pointer/integer type mismatch in conditional expression Storable.xs​:4410​: warning​: pointer/integer type mismatch in conditional expression

Perl Info

``` Flags: category=install severity=none This perlbug was built using Perl v5.7.0 - Mon Aug 28 21:06:09 EDT 2000 It is being executed now by Perl v5.7.0 - Mon Aug 28 20:34:43 EDT 2000. Site configuration information for perl v5.7.0: Configured by abigail at Mon Aug 28 20:34:43 EDT 2000. Summary of my perl5 (revision 5.0 version 7 subversion 0) configuration: Platform: osname=linux, osvers=2.2.13, archname=i686-linux-thread-multi uname='linux alexandra 2.2.13 #5 tue feb 8 15:37:54 est 2000 i686 unknown ' config_args='-Dcf_email=abigail@foad.org -Dperladmin=abigail@foad.org -Doptimize=-g -des -Uinstallusrbinperl -Dprefix=/opt/bleedperl -Dusedevel -Dusethreads' hint=recommended, useposix=true, d_sigaction=define usethreads=define use5005threads=undef useithreads=define usemultiplicity=define useperlio=undef d_sfio=undef uselargefiles=define use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef Compiler: cc='cc', optimize='-g', gccversion=2.95.2 19991024 (release), gccosandvers= cppflags='-D_REENTRANT -DDEBUGGING -fno-strict-aliasing -I/usr/local/include' ccflags ='-D_REENTRANT -DDEBUGGING -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' stdchar='char', d_stdstdio=define, usevfork=false 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='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lpthread -lc -lposix -lcrypt -lutil libc=/lib/libc-2.1.2.so, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Locally applied patches: SUIDMAIL - fixes for suidperl security DEVEL6866 @INC for perl v5.7.0: /home/abigail/Perl /home/abigail/Sybase /opt/bleedperl/lib/5.7.0/i686-linux-thread-multi /opt/bleedperl/lib/5.7.0 /opt/bleedperl/lib/site_perl/5.7.0/i686-linux-thread-multi /opt/bleedperl/lib/site_perl/5.7.0 /opt/bleedperl/lib/site_perl . Environment for perl v5.7.0: HOME=/home/abigail LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH=/home/abigail/Lib:/usr/local/lib:/usr/lib:/lib:/usr/X11R6/lib:/opt/tcl/lib:/opt/tk/lib/tk8.0 LOGDIR (unset) PATH=/home/abigail/Bin:/opt/perl/bin:/opt/tcl/bin:/opt/tk/bin:/usr/local/bin:/usr/local/X11/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/usr/X11R6/bin:/usr/games:/opt/povray/bin:/opt/teTeX/bin/i686-pc-linux-gnu:/opt/python/bin PERL5LIB=/home/abigail/Perl:/home/abigail/Sybase PERLDIR=/opt/perl PERL_BADLANG (unset) SHELL=/bin/bash ```

[p5pRT]

From @jhi

On Tue\, Aug 29\, 2000 at 01​:46​:17AM -0000\, abigail@​foad.org wrote​:

This is a build failure report for perl from abigail@​foad.org\, generated with the help of perlbug 1.32 running under perl v5.7.0.

Now I tracked this one down (change #6891). The hunt mainly consisted of debugging the following charming line :-)

  SV *perinterp_sv = * Perl_hv_fetch(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0) )) ) ) \, (*Perl_Imodglobal_ptr(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0) )) ) ) )) \, "Storable(" "0.703" ")" \, sizeof("Storable(" "0.703" ")" )-1 \, (1) ) ; stcxt_t * cxt = ( stcxt_t * )(perinterp_sv && (( perinterp_sv )->sv_flags & 0x00010000 ) ? ( stcxt_t * )(unsigned long )( ((XPVIV*) ( perinterp_sv )->sv_any )->xiv_iv ) : ((void *)0) ) ; ( cxt = ( stcxt_t *)Perl_safesysmalloc ((size_t )(( 1 )*sizeof( stcxt_t ))))\, (__extension__ (__builtin_constant_p ( ( 1 )*sizeof( stcxt_t ) ) && ( ( 1 )*sizeof( stcxt_t ) ) \<= 16 ? (( ( 1 )*sizeof( stcxt_t ) ) == 1 ? ({ void *__s = ( (char*)( cxt ) ); *((__uint8_t *) __s) = (__uint8_t) 0 ; __s; }) : ({ void *__s = ( (char*)( cxt ) ); union { unsigned int __ui; unsigned short int __usi; unsigned char __uc; } *__u = __s; __uint8_t __! c = (__uint8_t) ( 0 ); switch ((unsigned int) ( ( 1 )*sizeof( stcxt_t ) )) { case 15​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 11​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 7​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 3​: __u->__usi = (unsigned short int) __c * 0x0101; __u = __extension__ (void *)((char *) __u + 2); __u->__uc = (unsigned char) __c; break; case 14​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 10​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 6​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 2​: __u->__usi = (unsigned short int) __c * 0x0101; break; case 13​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 9​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); c! ase 5​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 1​: __u->__uc = (unsigned char) __c; break; case 16​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 12​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 8​: __u->__ui = __c * 0x01010101; __u = __extension__ (void *)((char *) __u + 4); case 4​: __u->__ui = __c * 0x01010101; case 0​: break; } __s; }) ) : (__builtin_constant_p ( 0 ) && ( 0 ) == '\0' ? ({ void *__s = ( (char*)( cxt ) ); __builtin_memset ( __s \, '\0'\, ( 1 )*sizeof( stcxt_t ) ) ; __s; }) : memset ( (char*)( cxt ) \, 0 \, ( 1 )*sizeof( stcxt_t ) )))) ; Perl_sv_setiv(((PerlInterpreter *)pthread_getspecific((*Perl_Gthr_key_ptr(((void *)0) )) ) ) \, perinterp_sv \, ( IV )(unsigned long )( cxt ) ) ;