diff options
-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"); } |