From 12f90373e8b7222368c3b53087899ba40a60e220 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 6 Jan 2012 00:13:50 +0000
Subject: (stop_udev) introduce it in order to stop udev & umount associated
 mount points at end of installation

---
 perl-install/install/NEWS        | 2 ++
 perl-install/install/install2.pm | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 45938a5ab..faaadc2a9 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- stop udev at end of install
+
 Version 13.74.1 - 29 December 2011
 
 - rebuild with updated list_modules.pm forkernel-3.2.0-0.rc7.2.mga2 
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index a22f54887..4112b0932 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -306,6 +306,12 @@ sub start_udev() {
     run_program::run("udevadm", "trigger", "--type=devices", "--action=add");
 }
 
+sub stop_udev() {
+    run_program::run('killall', 'udevd');
+    require fs::mount;
+    fs::mount::umount($_) foreach '/dev/pts', '/dev/shm', '/run', '/dev';
+}
+
 #-######################################################################################
 #- MAIN
 #-######################################################################################
@@ -316,6 +322,7 @@ sub main {
 	log::l("$msg\n" . backtrace());
 	$o->ask_warn('', $msg);
 	setVirtual(1);
+	stop_udev() if !$::local_install;
 	require install::steps_auto_install;
 	install::steps_auto_install_non_interactive::errorInStep($o, $msg);
     };
@@ -648,6 +655,7 @@ sub main {
     #- ala pixel? :-) [fpons]
     common::sync(); common::sync();
 
+    stop_udev() if !$::local_install;
     log::l("installation complete, leaving");
     log::l("files still open by install2: ", readlink($_)) foreach glob_("/proc/self/fd/*");
     print "\n" x 80 if !$::local_install;
-- 
cgit v1.2.1