Front page | perl.perl5.porters |
Postings from March 2002
On Wed, Mar 13, 2002 at 08:46:46PM +0000, Nicholas Clark wrote:
> 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?
Different FPU: see the warnings about incompatible fp cflags
in Keith's log.
> > =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?
I forgot to mention that I tried exactly that, and it didn't seem to
work. Once you ftruncate, there's no getting back, it seemed.
(There's more to the mystery, I admit: trying to replicate the failure
in trivial C does *not* work: the ftruncate is hapy to extend a file.
But the Perl C code fails. Then I ran out of spare cycles.)
--
$jhi++; # http://www.iki.fi/jhi/
# There is this special biologist word we use for 'stable'.
# It is 'dead'. -- Jack Cohen
Thread Previous
|
Thread Next