summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-05-17 03:02:10 +0000
committerNorbert Preining <norbert@preining.info>2021-05-17 03:02:10 +0000
commitd999da47ff375df843c0c9bbfd5911236dd9d40a (patch)
tree5db62e278d67073330a7237b273091634eccf365 /systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
parent2fc2609488764102ce43194e9288b7bd8e25f17f (diff)
CTAN sync 202105170302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm18
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 {