Re: Perl 5.12.2-RC1 is now available

On Sep 3, 2010, at 4:07 AM, Vorländer, Martin wrote:


>>  anything out of the ordinary involving ACLs, default
>> permissions, files created under one account and accessed under
>> another, etc., might be worth checking.
>
> Yep. As this is a very fresh setup system, I don't have any data  
> disks,
> So I'm working on the system disk. And the default owner of all top
> Level directories (like my [BUILD] directory) is [1,1], and not  
> SYSTEM...

I guess we could make configure.com set ownership, though that seems  
pretty heavy-handed.  Or perhaps just issue a warning if the directory  
you're running configure.com in is not one you own.  There must be an  
easier way, but the following test is what I could come up with to  
test for ownership of the current directory:

$ set def sys$manager
$ dirfile = f$parse("[]",,,"DIRECTORY") - (f 
$parse("[-]",,,"DIRECTORY") - "]") - "]" - "[" - "." + ".DIR;1"
$ owner = f$file_attributes("[-]''dirfile'","UIC")
$ me = f$user()
$ if me .nes. owner then say "''me' is not the owner of ''dirfile',  
''owner' is."
[CRAIG] is not the owner of SYSMGR.DIR;1, [SYSTEM] is.

________________________________________
Craig A. Berry
mailto:[email protected]

"... getting out of a sonnet is much more
  difficult than getting in."
                  Brad Leithauser