Path: utzoo!attcan!uunet!samsung!usc!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!mcsun!hp4nl!utrcu1!infnews!infnews!belinfan
From: belinfan@cs.utwente.nl (Axel Belinfante)
Newsgroups: comp.lang.perl
Subject: make test fails on hp 9000s300, why?
Message-ID: <1991Jan11.133837@cs.utwente.nl>
Date: 11 Jan 91 12:38:37 GMT
Sender: usenet@cs.utwente.nl
Reply-To: belinfan@cs.utwente.nl (Axel Belinfante)
Organization: University of Twente, Dept. of Computer Science
Lines: 53

I tried to compile perl 3.41 on a hp9000s300 machine, running hp-ux 7.0.
It compiles ok, as long as i don't try to compile it with -O
(if i do, cc hangs in eval.c).
The problems start when i run `make test'.
test op.read fails, the other tests run ok:
>>  % op.read
>>  1..4
>>  ok 1
>>  ok 2
>>  not ok 3
>>  not ok 4

After adding addional print statements (see below) the result is:
>>  % op.read
>>  1..4
>>  ok 1
>>  ok 2
>>  not ok 3
>>  not ok 4
>>  $got :4:
>>  $buf ::

The revised test script op.read:
----------cut here-------------
#!./perl

# $Header: op.read,v 3.0 89/10/18 15:30:58 lwall Locked $

print "1..4\n";


open(FOO,'op.read') || open(FOO,'t/op.read') || die "Can't open op.read";
seek(FOO,4,0);
$got = read(FOO,$buf,4);

print ($got == 4 ? "ok 1\n" : "not ok 1\n");
print ($buf eq "perl" ? "ok 2\n" : "not ok 2 :$buf:\n");

seek(FOO,20000,0);
$got = read(FOO,$buf,4);

print ($got == 0 ? "ok 3\n" : "not ok 3\n");
print ($buf eq "" ? "ok 4\n" : "not ok 4\n");
print ('$got '); print(":$got:\n");
print ('$buf '); print(":$buf:\n");
----------cut here---------------------

Does this sound familiar, in any way?
Have you a suggestion how to solve this?

Thanx ahead,

Axel Belinfante. (belinfan@cs.utwente.nl)