Re: Win32::Perms question

You need to Set() the permissions back.

use Win32::Perms;
my $dir = new Win32::Perms('c:/temp')||return 0;
$dir -> Remove ('everyone');
$dir -> Set(); # here is where we apply the new perms
$dir -> Dump;
[download]

That should do the trick for you.

My Win32::Perms->Dump() doesn't display account permissions twice. I am using ActiveState Perl v5.6.0 on Windows 2000. What version and platform are you using? Maybe if you post your output of Dump(), I would have an idea about it.

Jeremy

Comment on Re: Win32::Perms question Select or Download Code

Replies are listed 'Best First'.
Re: Re: Win32::Perms question by Anonymous Monk on Jun 19, 2002 at 12:58 UTC
Thanks Jeremy, Set() did do the trick for me, but It only worked when passing indexes instead on names of special accounts ..like the 'Everyone'	[reply]