Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: pl28 op.stat FAILED on test 35
Keywords: Sun3, SunOS 4.0.3
Message-ID: <9445@jpl-devvax.JPL.NASA.GOV>
Date: 10 Sep 90 18:01:31 GMT
References: <2815@s3.ireq.hydro.qc.ca>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 39

In article <2815@s3.ireq.hydro.qc.ca> gamin@ireq-robot.hydro.qc.ca (Martin Boyer) writes:
: 
: I get the following message from 'make test', using perl 3.0,
: patchlevel 28 on a Sun3 running SunOS 4.0.3.  Compiled with cc -O2.
: 
: op.stat.........FAILED on test 35
: 
: The relevant part in op.stat is:
: 
: ----------------
: 
: $cnt = $uid = 0;
: 
: die "Can't run op.stat test 35 without pwd working" unless $cwd;
: chdir '/usr/bin' || die "Can't cd to /usr/bin";
: while (<*>) {
:     $cnt++;
:     $uid++ if -u;
:     last if $uid && $uid < $cnt;
: }
: chdir $cwd || die "Can't cd back to $cwd";
: 
: # I suppose this is going to fail somewhere...
: if ($uid > 0 && $uid < $cnt) {print "ok 35\n";} else {print "not ok 35\n";}
: 
: ----------------
: 
: What's wrong?
: Should I worry about it?

It's trying to determine if the -u switch works, on the assumption that
some files in /usr/bin will be setuid.  Either you have no setuid files
in /usr/bin (doubtful), or the <*> glob failed for some reason.  The most
likely explanation is that you have a file called "0" in /usr/bin.  The
test should probably be

    while (defined($_ = <*>))

Larry