hi all!

i'm writing a perl program that walks a directory tree
looking for directory entries.  i've hit a problem that i
can't tell if it's in my code or actually in perl.  here's
an example of the error:

./perl                 <<< just a display
./perl rwxr--r--    <<< perl is a (sub-)directory
./perl/BJOBFILE <<< this is the first file in the directory
Use of uninitialized value in bitwise and (&) at
/PERL/PUB/lib/perl5/5.6.0/PA-RISC1.1/Fcntl.pm line 193.

there's nothing magical (imo) about BJOBFILE (and it's only
an example).  my user id is the owner of the file and i have
full rwx to the file as well as the perl directory.  it is a
mpe-ish kind of file (that is, fixed-length ascii) but the
program is having the same kind of trouble with both mpe and
hfs files.

it appears that if i run this perl program against a
'standard' hfs directory (say /usr/), there is no problem
reading subdirectories or their contents.  however, running
against my cwd (which is just a regular ol' mpe group and
account) -- but with directories hanging off the group --
that's when it has problems.

the gist of the code is:

File::Find::name --> stat() --> if (S_ISDIR()) --> extract
the rwx mode from the bitmap

any thoughts?                - d

--
Donna Garverick     Sr. System Programmer
925-210-6631        [log in to unmask]

Come, my friends, 'Tis not too late to seek a newer world.
Tho' much is taken, much abides; and tho'
We are not now that strength which in old days
Moved earth and heaven, that which we are, we are.
"Ulysses", A. Tennyson

>>>MY opinions, not Longs Drug Stores'<<<

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *