From 0c2fb5ecf8f825401bc1c52353f6f42009a509e5 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Sat, 26 May 2018 01:17:05 +0000
Subject: once more, it is $::progs nor $::prog, the danger of global vars

git-svn-id: svn://tug.org/texlive/trunk@47842 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Master/tlpkg/TeXLive')

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 86bc13d27ab..71df6d1613a 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -2367,7 +2367,7 @@ sub setup_programs {
       # also set up $::{'compressor'} if not already done
       # this selects the first one
       # but we might reset this depending on TEXLIVE_COMPRESSOR setting, see below
-      defined($::prog{'compressor'}) || ($::prog{'compressor'} = $comptype);
+      defined($::progs{'compressor'}) || ($::progs{'compressor'} = $comptype);
     }
   }
   $::progs{'working_compressors'} = [ @working_compressors ];
-- 
cgit v1.2.3