diff options
author | Karl Berry <karl@freefriends.org> | 2021-12-21 22:46:16 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-12-21 22:46:16 +0000 |
commit | e59c85deee5e92c444551086c1f2ced999b39d25 (patch) | |
tree | 2e1416230c53eb3eb6531170d1a691f9426a3b62 /Master/tlpkg/TeXLive/TLWinGoo.pm | |
parent | 1d19bd5dcb878354da2efe13630de7600210a113 (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.pm | 6 |
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; |