in reply to Re^4: how do you propagate Tie::Registry modifications to the system environment (UtS,L)
in thread how do you propagate Tie::Registry modifications to the system environment

So you still haven't glanced at the code?

It contains a comment noting a wish to use a slightly different call that includes a time-out.

- tye        

  • Comment on Re^5: how do you propagate Tie::Registry modifications to the system environment (UtS,L)

Replies are listed 'Best First'.
Re^6: how do you propagate Tie::Registry modifications to the system environment (w/ timeout)
by tye (Sage) on Oct 08, 2010 at 21:39 UTC

    I needed this particular thing myself today so I threw together a version that seems to work and should include a time-out: 

    use Win32::API      qw< >;

{
    use constant HWND_BROADCAST     => 0xffff;
    use constant WM_SETTINGCHANGE   => 0x001A;
    use constant SMTO_ABORTIFHUNG   => 2;
    my $send;

    sub BroadcastEnv {
        $send ||= Win32::API->new(
            'user32', 'SendMessageTimeout', 'LLLPLLL', 'L',
            # hWnd, msg, wParam, lParam, flags, msTimeout, pLResults
        )
            or  die "Can't load SendMessageTimeout(): $^E\n";
        $send->Call(
            HWND_BROADCAST(),
            WM_SETTINGCHANGE(),
            0,
            "Environment",
            SMTO_ABORTIFHUNG(),
            5000,
            0, # unpack 'L', pack 'P', my $res= ' 'x8;
        );
    }
}

    [download]

    - tye        

[reply]
[d/l]

In Section Seekers of Perl Wisdom