From e64719bb69facfc630f112f313575ca6cf352303 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 20 Jun 2004 23:19:18 +0000
Subject: do not uselessy fork shells

---
 perl-install/standalone/service_harddrake | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/service_harddrake')

diff --git a/perl-install/standalone/service_harddrake b/perl-install/standalone/service_harddrake
index 90a0266ca..c40ba9350 100755
--- a/perl-install/standalone/service_harddrake
+++ b/perl-install/standalone/service_harddrake
@@ -97,7 +97,7 @@ foreach my $hw_class (@harddrake::data::tree) {
     }
     if ($Ident eq "AUDIO") {
         # automatic sound slots configuration
-        system("rm -f /etc/asound.state");
+        rm_rf("/etc/asound.state");
         harddrake::sound::configure_sound_slots();
         next;
     } elsif ($Ident eq "ETHERNET") {
@@ -121,7 +121,7 @@ foreach my $hw_class (@harddrake::data::tree) {
     if (!$hw_class->{automatic}) {
         $SIG{ALRM} = sub { $no = 1; kill 15, $pid };
         unless ($pid = fork()) {
-            $splash and !system('echo verbose > /proc/splash') and $splash = 0;
+            $splash and eval { output('/proc/splash', 'verbose') } and $splash = 0;
             exec("/usr/share/harddrake/confirm", $Ident, $timeout, $msg);
         }
         alarm($timeout);
-- 
cgit v1.2.1