texlive[54289] Master/tlpkg/TeXLive/TLWinGoo.pm: Tweaks to making

[commits+siepo at tug.org]

Revision: 54289
          http://tug.org/svn/texlive?view=revision&revision=54289
Author:   siepo
Date:     2020-03-14 11:46:20 +0100 (Sat, 14 Mar 2020)
Log Message:
-----------
Tweaks to making read-only

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLWinGoo.pm

Modified: trunk/Master/tlpkg/TeXLive/TLWinGoo.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLWinGoo.pm	2020-03-14 00:34:29 UTC (rev 54288)
+++ trunk/Master/tlpkg/TeXLive/TLWinGoo.pm	2020-03-14 10:46:20 UTC (rev 54289)
@@ -1418,16 +1418,13 @@
   # S-1-5-11     Authenticated users
   # S-1-5-32-545 Users
   # S-1-5-32-544 administrators
-  # S-1-3-0      creator owner
+  # S-1-3-0      creator owner (does not work right)
   # S-1-3-1      creator group
 
-  # useful explanations at http://timbolton.net/2010/06/23/
-  #   /icacls-changing-permissions-on-files-and-folders
-
   # /reset is necessary for removing non-standard existing permissions
   my $cmd = 'cmd /c "icacls . /reset && icacls . /inheritance:r'.
-    ' /grant:r *S-1-5-32-544:(OI)(CI)F /grant *S-1-3-0:(OI)(CI)F'.
-    ' /grant *S-1-5-11:(OI)(CI)RX"';
+    ' /grant:r *S-1-5-32-544:(OI)(CI)F'.
+    ' /grant:r *S-1-5-11:(OI)(CI)RX /grant:r *S-1-5-32-545:(OI)(CI)RX /T"';
   log "Making read-only\n".`$cmd`."\n";
 
   # go back to original directory