diff options
author | Norbert Preining <norbert@preining.info> | 2021-12-23 03:00:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-12-23 03:00:54 +0000 |
commit | efa3a013f699c533896b44e4fcb74c730e94ad34 (patch) | |
tree | 33ca0df069302a84b2b4ad8f53447960ae33bb9b /systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | |
parent | 9105ca38c03b7a88ed0c306472d9560cc5f206bd (diff) |
CTAN sync 202112230300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm index 0418dc12e0..5b0ca5b384 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm @@ -1,4 +1,4 @@ -# $Id: TLWinGoo.pm 59225 2021-05-16 17:41:12Z karl $ +# $Id: TLWinGoo.pm 61372 2021-12-21 22:46:16Z karl $ # TeXLive::TLWinGoo.pm - Windows goop. # Copyright 2008-2021 Siep Kroonenberg, Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -9,9 +9,11 @@ # This program is free software; you can redistribute it and/or modify it # under the same terms as Perl itself. +#use strict; use warnings; notyet + package TeXLive::TLWinGoo; -my $svnrev = '$Revision: 59225 $'; +my $svnrev = '$Revision: 61372 $'; my $_modulerevision; if ($svnrev =~ m/: ([0-9]+) /) { $_modulerevision = $1; @@ -86,7 +88,7 @@ All exported functions return forward slashes. BEGIN { use Exporter; - use vars qw( @ISA @EXPORT $Registry); + use vars qw( @ISA @EXPORT @EXPORT_OK $Registry); @ISA = qw( Exporter ); @EXPORT = qw( &is_ten @@ -343,7 +345,7 @@ sub is_a_texdir { $sr =~ s/\\/\//g; $sr = $sr . '/' unless $sr =~ m!/$!; return 0 if index($d, $sr)==0; - foreach $p (qw(luatex.exe mktexlsr.exe pdftex.exe tex.exe xetex.exe)) { + foreach my $p (qw(luatex.exe mktexlsr.exe pdftex.exe tex.exe xetex.exe)) { return 1 if (-e $d.$p); } return 0; |