Skip Menu |
Report information
Id: 1080
Status: resolved
Priority: 0/
Queue: perl5

Owner: Nobody
Requestors: desar [at] club-internet.fr
Cc:
AdminCc:

Operating System: sco
PatchStatus: (no value)
Severity: medium
Type: (no value)
Perl Version: (no value)
Fixed In: (no value)



Date: Tue, 27 Jul 1999 22:54:05 +0200
From: =?iso-8859-1?Q?Fran=E7ois=20D=E9sarm=E9nien?= <desar [...] club-internet.fr>
To: perlbug [...] perl.com
Subject: Not OK: perl 5.00558 on i386-sco 3.2v5.0.4
Download (untitled) / with headers
text/plain 3.4k
Three problems with C<make test>: The test F<lib/bigfloatpm.t> fails at 347. The following script reproduce the cause: use Math::BigFloat; $x=new Math::BigFloat "-1"; $y=$x->fsqrt; print $y,"\n"; print $y + 0,"\n"; outputs: NaN -n.an C<Math::BigFloat::fadd> seems not called and I really don't know where this value is coming from. Any ideas ? The test F<pragma/warning.t> fails at 190 because like in the following example, C<read(FOO,$x,1)> doesn't produce a warning the test assumes it should. I don't know if it is harmful. use warning 'io' ; open(FOO, ">&STDOUT") and print <FOO>; read(FOO,$x,1); Lastly, F<op/filetest.t> fails at 7 when perl is built as root. I suggest the following patch, as C<suid 1> make F<op> always unreadable. START OF PATCH-------------------------------------------------- *** perl5.005_58/t/op/filetest.t Tue Jul 20 19:18:13 1999 --- perl5.005_58.new/t/op/filetest.t Tue Jul 27 17:53:36 1999 *************** *** 48,57 **** # Scripts are not -x everywhere so cannot test that. print "not " unless -r 'op'; print "ok 7\n"; - - eval '$> = $oldeuid'; # switch uid back (may not be implemented) # this would fail for the euid 1 # (unless we have unpacked the source code as uid 1...) --- 48,59 ---- # Scripts are not -x everywhere so cannot test that. + eval '$> = $oldeuid'; # switch uid back (may not be implemented) + + # this would fail for the euid 1 + # (unless we have unpacked the source code as uid 1...) print "not " unless -r 'op'; print "ok 7\n"; # this would fail for the euid 1 # (unless we have unpacked the source code as uid 1...) END OF PATCH------------------------------------------------------ I'll have a look on sco3 tomorrow. Francois Desarmenien --- Site configuration information for perl 5.00558: Configured by desar at Tue Jul 27 17:41:42 CETDST 1999. Summary of my perl5 (revision 5.0 version 5 subversion 58) configuration: Platform: osname=sco, osvers=3.2v5.0.4, archname=i386-sco uname='sco_sv dvptu7 3.2 2 i386 ' config_args='-des' hint=recommended, useposix=true, d_sigaction=define usethreads=undef useperlio=undef d_sfio=undef use64bits=undef usemultiplicity=undef Compiler: cc='cc', optimize='-O0', gccversion= cppflags='-U M_XENIX -D PERL_SCO -D PERL_SCO5 -w0 -belf -I/usr/local/include' ccflags ='-U M_XENIX -D PERL_SCO -D PERL_SCO5 -w0 -belf -I/usr/local/include' stdchar='unsigned char', d_stdstdio=undef, usevfork=false intsize=4, longsize=4, ptrsize=4, doublesize=8 d_longlong=undef, longlongsize=, d_longdbl=define, longdblsize=12 alignbytes=4, usemymalloc=y, prototype=define Linker and Libraries: ld='ld', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /shlib /lib /usr/lib /usr/ccs/lib libs=-lintl -lsocket -lnsl -lndbm -lgdbm -ldbm -lld -lm -lc -lcrypt -lsec -lPW -lx libc=, so=so, useshrplib=false, libperl=libperl.a Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Bexport -L/usr/local/lib' cccdlflags='-Kpic', lddlflags='-G -L/usr/local/lib' Locally applied patches: --- @INC for perl 5.00558: lib /usr/local/lib/perl5/5.00558/i386-sco /usr/local/lib/perl5/5.00558 /usr/local/lib/site_perl/5.00558/i386-sco /usr/local/lib/site_perl . --- Environment for perl 5.00558: HOME=/usr/desar LANG (unset) LANGUAGE (unset) LD_LIBRARY_PATH=/usr/local/lib LOGDIR (unset) PATH=/usr/local/bin:/bin:/usr/bin:/usr/desar/bin:. PERL_BADLANG (unset) SHELL=/bin/sh


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org