From 3b2be944da51e436cb4cb8cc69db6f4ceef7b591 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 6 Mar 2012 20:32:56 +0000
Subject: (stop_udev) fix stopping udev (we don't have killall at install time)

---
 perl-install/install/NEWS        | 2 ++
 perl-install/install/install2.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2f9cbb7e5..b88ac04d8 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix stopping udev
+
 Version 13.89 - 02 March 2012
 
 - fix RAID udev rule
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 3776cb016..96720aa62 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -307,7 +307,7 @@ sub start_udev() {
 }
 
 sub stop_udev() {
-    run_program::run('killall', 'udevd');
+    kill 15, fuzzy_pidofs('^udevd\b');
     require fs::mount;
     fs::mount::umount($_) foreach '/dev/pts', '/dev/shm', '/run', '/dev';
 }
-- 
cgit v1.2.1