From 2b3466aa2749af13a6a3f0b2d0204e705d43dfee Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 3 Jun 2011 06:03:23 +0000 Subject: use proper parenthesis in TLWinGoo git-svn-id: svn://tug.org/texlive/trunk@22751 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 612ed86dd2a..bb8cf2d9aa8 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -340,7 +340,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 $p (qw(luatex.exe mktexlsr.exe pdftex.exe tex.exe xetex.exe)) { return 1 if (-e $d.$p); } return 0; -- cgit v1.2.3