summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-12-21 22:46:16 +0000
committerKarl Berry <karl@freefriends.org>2021-12-21 22:46:16 +0000
commite59c85deee5e92c444551086c1f2ced999b39d25 (patch)
tree2e1416230c53eb3eb6531170d1a691f9426a3b62 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent1d19bd5dcb878354da2efe13630de7600210a113 (diff)
use strict; use warnings; declarations, filehandle barewords, our @disabled
git-svn-id: svn://tug.org/texlive/trunk@61372 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index 941ee315159..94c7877ebb7 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -9,6 +9,8 @@
# 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$';
@@ -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;