diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-11-16 21:41:32 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-11-16 21:41:32 +0000 |
commit | 9b28381167cbb008caf200df2868564c4d454c66 (patch) | |
tree | 1ec5d6e702732da4e1b0d51298c083eea66e27db /Master/tlpkg/TeXLive | |
parent | 225e44019f7749987a2e622d0a2760a06ffce15b (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/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 8 |
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"); } |