Not OK: perl 5.00558 on i386-sco 3.2v5.0.4

[p5pRT]

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

Searchable as RT1080$

[p5pRT]

From [email protected]

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