move code to create_minimal_files()

1 files changed, 12 insertions, 0 deletions

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index fde155b26..5f73d4a62 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -680,6 +680,18 @@ sub setPackages {
     }
 }
 
+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";
+}
+
 sub count_files {
     my ($dir) = @_;
     -d $dir or return 0;