diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-11 03:01:03 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-11 03:01:03 +0000 |
commit | 9b552e1a4637af098a01847c97658f65bc505356 (patch) | |
tree | 5fdca147f23bfe92704e86bbcac8e13521185c6c /systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | |
parent | 5960076e4c9c15e2a052cf015dd697a65db3150d (diff) |
CTAN sync 202104110301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm index 38b23d34b4..1fa5acf76f 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm @@ -1,4 +1,4 @@ -# $Id: TLWinGoo.pm 58768 2021-04-06 10:39:46Z siepo $ +# $Id: TLWinGoo.pm 58811 2021-04-10 08:09:15Z siepo $ # TeXLive::TLWinGoo.pm - Windows goop. # Copyright 2008-2018 Siep Kroonenberg, Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -11,7 +11,7 @@ package TeXLive::TLWinGoo; -my $svnrev = '$Revision: 58768 $'; +my $svnrev = '$Revision: 58811 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -89,8 +89,6 @@ BEGIN { use vars qw( @ISA @EXPORT $Registry); @ISA = qw( Exporter ); @EXPORT = qw( - &is_vista - &is_seven &is_ten &admin &non_admin @@ -1337,11 +1335,6 @@ sub maybe_make_ro { log "Not an admin install; not making read-only\n"; return 1; } - if (!is_vista()) { - log "Windows version $windows_version earlier than Vista;". - " not making read-only\n"; - return 1; - } $dir = Cwd::abs_path($dir); |