From 9b28381167cbb008caf200df2868564c4d454c66 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 16 Nov 2008 21:41:32 +0000 Subject: TLWinGoo: SendMessage => SendMessageTimeout, to solve hung broadcast_env git-svn-id: svn://tug.org/texlive/trunk@11310 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 8 ++++++-- 1 file 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"); } -- cgit v1.2.3