diff options
author | Norbert Preining <norbert@preining.info> | 2021-05-17 03:02:10 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-05-17 03:02:10 +0000 |
commit | d999da47ff375df843c0c9bbfd5911236dd9d40a (patch) | |
tree | 5db62e278d67073330a7237b273091634eccf365 /systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | |
parent | 2fc2609488764102ce43194e9288b7bd8e25f17f (diff) |
CTAN sync 202105170302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm index 1fa5acf76f..0418dc12e0 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm @@ -1,6 +1,6 @@ -# $Id: TLWinGoo.pm 58811 2021-04-10 08:09:15Z siepo $ +# $Id: TLWinGoo.pm 59225 2021-05-16 17:41:12Z karl $ # TeXLive::TLWinGoo.pm - Windows goop. -# Copyright 2008-2018 Siep Kroonenberg, Norbert Preining +# Copyright 2008-2021 Siep Kroonenberg, Norbert Preining # This file is licensed under the GNU General Public License version 2 # or any later version. @@ -11,7 +11,7 @@ package TeXLive::TLWinGoo; -my $svnrev = '$Revision: 58811 $'; +my $svnrev = '$Revision: 59225 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -24,7 +24,7 @@ sub module_revision { return $_modulerevision; } =head1 NAME -C<TeXLive::TLWinGoo> -- Additional utilities for Windows +C<TeXLive::TLWinGoo> -- TeX Live Windows-specific support =head2 SYNOPSIS @@ -78,7 +78,7 @@ C<TeXLive::TLWinGoo> -- Additional utilities for Windows All exported functions return forward slashes. -=head2 DESCRIPTION +=head1 DESCRIPTION =over 4 @@ -1318,6 +1318,12 @@ sub unregister_uninstaller { =pod +=back + +=head2 ADMIN + +=over 4 + =item C<TeXLive::TLWinGoo::maybe_make_ro($dir)> Write-protects a directory $dir recursively, using ACLs, but only if @@ -1325,6 +1331,8 @@ we are a multi-user install, and only if $dir is on an NTFS-formatted local fixed disk, and only on Windows Vista and later. It writes a log message what it does and why. +=back + =cut sub maybe_make_ro { |