[tex-live] Small patch for TLWinGoo.pm to make happy perl 5.14

Vladimir Lomov lomov.vl at gmail.com
Fri Jun 3 03:29:32 CEST 2011


I made a small patch to make happy perl 5.14 (Archlinux x86_64).

Note: When I run tlmgr --help or other command with original TLWinGoo.pm
I see a warning message about 'deprecated use'. Seems that I'm right
because similar construction in TLPSRC.pm uses (qw()).

WBR, Vladimir Lomov

OS/2 Beer: Comes in a 32-oz can. Does allow you to drink several DOS 
Beers simultaneously. Allows you to drink Windows 3.1 Beer simultaneously 
too, but somewhat slower. Advertises that its cans won't explode when you 
open them, even if you shake them up. You never really see anyone 
drinking OS/2 Beer, but the manufacturer (International Beer 
Manufacturing) claims that 9 million six-packs have been sold.
-------------- next part --------------
--- TLWinGoo.pm.orig    2011-05-31 12:48:33.000000000 +0900
+++ TLWinGoo.pm 2011-06-03 10:17:55.000000000 +0900
@@ -340,7 +340,7 @@
   $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;

More information about the tex-live mailing list