Front page | perl.perl5.porters |
Postings from March 2002
On Wed, Mar 13, 2002 at 08:14:53PM +0200, Jarkko Hietaniemi wrote: > Your results are pretty much in line what I've got from UNICOS/mk (T3E) > and a guy from Boeing from UNICOS (C90, I think), as listed in perldelta: > > =head2 UNICOS > > ../ext/Socket/socketpair.t 1 256 45 1 2.22% 12 > ../lib/Math/Trig.t 26 1 3.85% 25 > ../lib/warnings.t 460 1 0.22% 425 > io/fs.t 36 1 2.78% 31 > op/numconvert.t 1440 13 0.90% 208 509-510 > 657-658 665-666 829-830 989-990 1149-1150 IIRC numconvert passed on the crays tested by Keith Thompson. What's the difference between them and the Boeing Cray? > =head2 UNICOS and UNICOS/mk > > The io/fs test #31 is failing because in UNICOS and UNICOS/mk > truncate() cannot be used to grow the size of filehandles, only > to reduce the size. The workaround is to truncate files instead > of filehandles. Surely the real workaround is to have perl check if the file is seekable, and if so seek to 1 byte before the desired size, write a zero byte, then seek back whence it came? We could even configure test for this (at the time of ftruncate), define a symbol, and make it fairly generic. If no-one says that's a stupid idea, I'll give it a go. It's more fun that wondering about exp in long double Irix. Nicholas Clark -- Even better than the real thing: http://nms-cgi.sourceforge.net/Thread Previous | Thread Next