Arrgh...I am sorry for not being clear. The script is running under the
context of my username. I know that I do not have permissions on certain
directories. However, I would like to know how to detect it in Perl.

perl -e "print(-d 'z:/xxx');" prints a 1, even though z:/xxx directory
cannot be accessed because of NTFS permissions. I was wondering if there
would be some "-X" operator that would return a zero OR undef for such
directories.

How about this? A readdir() function on such directories should return a
"undef" and can that be taken as a symbol of "not enough access
permissions?"

-- Rex 

-----Original Message-----
From: McCollum, Frank [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, January 30, 2002 4:52 PM
To: [EMAIL PROTECTED]; [EMAIL PROTECTED]
Subject: RE: File::Find on Win32 -- Directory Permissions Denied


I was using server loosely.  The machine it is running from has to be logged
on as something, right, (like our servers would have a logon similar to
"productionMachine" or whatever).  The first step I would take is to check
this, it shouldn't require a work around.

Reply via email to