walt@bcarh133.uucp (Walt Sullivan) (04/02/91)
I've installed Perl 4.0 pl 00 on HP-UX 6.5, optimization flags "+O1",
compiler flags "-Wc,-Nw500", libraries "-lmalloc -lndir -lndbm -lm -lBSD".
Two of the test programs fail - t/op/read.t fails because, after seeking
way past the end of file (seek(FOO,20000,0);), the Perl expression
"$got = read(FOO,$buf,4);" returns a 4 to $got, and sets $buf to 4 NULs
("\0\0\0\0")".
t/op/dbm.t passes all its tests, but says "No memory." three times between
"ok 7" and "ok 8". I fired it up with perl -d, and got:
main'(op/dbm.t:83): if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
ok 7
main'(op/dbm.t:85): $h{'foo'} = '';
No memory.
main'(op/dbm.t:86): $h{''} = 'bar';
No memory.
main'(op/dbm.t:89): $ok = 1;
main'(op/dbm.t:90): for ($i = 1; $i < 200; $i++) { $h{$i + 0} = $i + 0; }
No memory.
main'(op/dbm.t:91): for ($i = 1; $i < 200; $i++) { $ok = 0 unless $h{$i} == $i; }
main'(op/dbm.t:92): print ($ok ? "ok 8\n" : "not ok 8\n");
ok 8
I can live with the read() failure, but, as I'm thinking about using dbm in
a tool I want to write, the op.dbm messages bother me.
Any suggestions?
Walt Sullivan
(613) 763-7952
BITNET: walt@BNR.CA
UUCP: walt@orbit.amiga.ocunix.on.ca
--
Walt Sullivan
9D35 Carling
Mail stop 101
ESN 393-7952
(613) 763-7952
Unix mail: walt@bcarh133
BITNET: walt@BNR.CA