From 75f35fe8f7f79e2f227b3abb46e70bfcb2f5cd3e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 13 May 2008 15:03:20 +0000 Subject: (switch) advise to log out if PA is enabled/disabled --- perl-install/NEWS | 3 +++ perl-install/harddrake/sound.pm | 6 ++++++ 2 files changed, 9 insertions(+) diff --git a/perl-install/NEWS b/perl-install/NEWS index e01a569e8..fe777c2fc 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,6 @@ +- draksound: + o advise to log out if PA is enabled/disabled + Version 10.29.3 - 13 May 2008 - draksound: diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 4d5288c0f..c0ee46909 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -323,11 +323,17 @@ sub switch { my $is_5_1_in_pulseaudio_enabled = is_5_1_in_pulseaudio_enabled(); my $is_user_switching = is_user_switching_enabled(); + my $old_value = $is_pulseaudio_enabled; + my $write_config = sub { set_pulseaudio($is_pulseaudio_enabled); set_pulseaudio_routing($is_pulseaudio_enabled && $is_pulseaudio_routing_enabled); set_5_1_in_pulseaudio($is_5_1_in_pulseaudio_enabled); set_user_switching($is_user_switching); + if ($old_value ne $is_pulseaudio_enabled) { + require any; + any::ask_for_X_restart($in); + } }; my @common = ( -- cgit v1.2.1