From bd4182fb4aad4c267f771ce65cbb5c5d9aa8c11f Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Wed, 8 Jul 2009 08:46:47 +0000
Subject: add a debug to TLWinGoo

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

(limited to 'Master/tlpkg')

diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index e83b24442f8..5e4ca111279 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -188,6 +188,8 @@ sub get_system_env {
 
 if ($is_win) {
   $is_admin = 0 if not get_system_env();
+  debug("Configuring TLWinGoo for " . 
+    ($is_admin ? "admin" : "user") . "mode\n") if win32();
 }
 
 sub get_user_env {
-- 
cgit v1.2.3