HP3000-L Archives

September 2003, Week 2

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Mark Bixby <[log in to unmask]>
Reply To:
Mark Bixby <[log in to unmask]>
Date:
Mon, 8 Sep 2003 16:56:20 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (73 lines)
What kind of results do you get if you try this on invent3k using the still
"warm" off the presses 21050 snapshot of what is going to become perl 5.8.1?

What kind of results do you get if you humor me and try calling stat() twice
for the same file/dir?  On invent3k and/or your own machine.

- Mark B.

PS: I plan to possibly build a new Perl snapshot on invent3k Tuesday evening
(Sept. 9th) at 8PM PDT, so if you want to test 21050 you need to do it before then.

Donna Garverick wrote:
> 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 *
>
>


--
[log in to unmask]
Remainder of .sig suppressed to conserve expensive California electrons...

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

ATOM RSS1 RSS2