summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-12-23 03:00:54 +0000
committerNorbert Preining <norbert@preining.info>2021-12-23 03:00:54 +0000
commitefa3a013f699c533896b44e4fcb74c730e94ad34 (patch)
tree33ca0df069302a84b2b4ad8f53447960ae33bb9b /systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm
parent9105ca38c03b7a88ed0c306472d9560cc5f206bd (diff)
CTAN sync 202112230300
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLWinGoo.pm10
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;