3 files changed, 4 insertions, 17 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b56604de1..08acc5fa8 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- adapt to a dracut based stage1
+
 Version 15.68.1 - 14 October 2013
 
 - adapt to latest mdadm
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 02888ff2c..f6e30e8d8 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -295,15 +295,6 @@ sub exitInstall {
 sub start_udev() {
     return if fuzzy_pidofs('udevd');
 
-    # Ensure /run is mounted
-    mkdir("/run", 0755);
-    run_program::run("mount -t tmpfs -o mode=0755,nosuid,nodev tmpfs /run");
-
-    # Fake dracut boot (due to checks employed when running dracut during install)
-    # as we know that we'll have the needed metadata in udevadm db due to us
-    # starting udev nice and early here.
-    mkdir_p("/run/initramfs");
-
     # Start up udev:
     mkdir_p("/run/udev/rules.d");
     $ENV{UDEVRULESD} = "/run/udev/rules.d";
@@ -316,7 +307,7 @@ sub start_udev() {
 sub stop_udev() {
     kill 15, fuzzy_pidofs('udevd');
     sleep(2);
-    fs::mount::umount($_) foreach '/dev/pts', '/dev/shm', '/run';
+    fs::mount::umount($_) foreach '/dev/pts', '/dev/shm';
 }
 
 #-######################################################################################
@@ -618,7 +609,7 @@ sub main {
     }
 
     $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : "/mnt";
-    mkdir $::prefix, 0755;
+    mkdir $::prefix, 0755 if ! -d $::prefix;
 
     init_path();
 
diff --git a/perl-install/install/share/symlinks b/perl-install/install/share/symlinks
index 8c2432248..eb0de9b47 100644
--- a/perl-install/install/share/symlinks
+++ b/perl-install/install/share/symlinks
@@ -1,5 +1,3 @@
-/sbin
-/bin
 /etc/mke2fs.conf
 /etc/protocols
 /etc/services
@@ -7,7 +5,3 @@
 /etc/passwd
 /etc/pki
 /etc/urpmi
-/lib
-/lib64
-/usr
-/tmp /var/run