From 708cd0af89bd9aa437bc258e7069cfdbc113a968 Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Wed, 18 May 2011 23:06:54 +0000
Subject: More PA config writing robustness

---
 perl-install/harddrake/sound.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/harddrake')

diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm
index 8b6efeb5c..d100079f4 100644
--- a/perl-install/harddrake/sound.pm
+++ b/perl-install/harddrake/sound.pm
@@ -319,6 +319,9 @@ sub switch {
         my $old_value = $is_pulseaudio_enabled;
 
         my $write_config = sub {
+            if (!$is_pulseaudio_installed) {
+                return;
+            }
             set_pulseaudio($is_pulseaudio_enabled);
             set_pulseaudio_glitchfree($is_pulseaudio_glitchfree_enabled);
             set_PA_autospan($is_pulseaudio_enabled);
@@ -330,7 +333,7 @@ sub switch {
             if ($old_value ne $is_pulseaudio_enabled) {
                 require any;
                 any::ask_for_X_restart($in);
-              }
+            }
         };
 
         my @common = (
-- 
cgit v1.2.1