summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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");
}