From 3375e6ac137002cf08d3ba3033c65fa3fbf2262f Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Thu, 28 Feb 2008 22:05:37 +0000
Subject: move create_minimal_files() from install::any to fs::any

---
 perl-install/fs/any.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'perl-install/fs')

diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm
index a3277131b..00d4639a0 100644
--- a/perl-install/fs/any.pm
+++ b/perl-install/fs/any.pm
@@ -76,4 +76,16 @@ sub check_hds_boot_and_root {
     }
 }
 
+sub create_minimal_files() {
+    mkdir "$::prefix/$_", 0755 foreach 
+      qw(dev etc etc/profile.d etc/rpm etc/sysconfig etc/sysconfig/console 
+	etc/sysconfig/network-scripts etc/sysconfig/console/consolefonts 
+	etc/sysconfig/console/consoletrans
+	home mnt tmp var var/tmp var/lib var/lib/rpm var/lib/urpmi);
+    mkdir "$::prefix/$_", 0700 foreach qw(root root/tmp root/drakx);
+
+    devices::make("$::prefix/dev/null");
+    chmod 0666, "$::prefix/dev/null";
+}
+
 1;
-- 
cgit v1.2.1