summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-11-16 21:41:32 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-11-16 21:41:32 +0000
commit9b28381167cbb008caf200df2868564c4d454c66 (patch)
tree1ec5d6e702732da4e1b0d51298c083eea66e27db /Master
parent225e44019f7749987a2e622d0a2760a06ffce15b (diff)
TLWinGoo: SendMessage => SendMessageTimeout, to solve hung broadcast_env
git-svn-id: svn://tug.org/texlive/trunk@11310 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index 36dd010f63f..3df12deea97 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -760,9 +760,13 @@ sub broadcast_env() {
my $result = "";
my $SendMessage;
debug("Broadcasting \"Enviroment settings changed\" message...\n");
- $SendMessage = new Win32::API('user32', 'SendMessage', 'LLPP', 'L');
+ #$SendMessage = new Win32::API('user32', 'SendMessage', 'LLPP', 'L');
+ #$result = $SendMessage->Call(HWND_BROADCAST, WM_SETTINGCHANGE,
+ # 0, 'Environment') if $SendMessage;
+ $SendMessage = new Win32::API('user32', 'SendMessageTimeout', 'LLPPLLP', 'L');
+ my $ans = "12345678"; # room for dword
$result = $SendMessage->Call(HWND_BROADCAST, WM_SETTINGCHANGE,
- 0, 'Environment') if $SendMessage;
+ 0, 'Environment', 0, 2000, $ans) if $SendMessage;
debug("Broadcast complete; result: $result.\n");
}