move code to create_minimal_files()

2 files changed, 13 insertions, 9 deletions

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 0e5bbd1e5..ff8f00724 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -177,15 +177,7 @@ sub formatPartitions {
 	eval { rm_rf("$o->{prefix}/var/lib/rpm") };
     }
 
-    mkdir "$o->{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 "$o->{prefix}/$_", 0700 foreach qw(root root/tmp root/drakx);
-
-    devices::make("$o->{prefix}/dev/null");
-    chmod 0666, "$o->{prefix}/dev/null";
+    install_any::create_minimal_files();
 
     eval { fs::mount::mount('none', "$::prefix/proc", 'proc') };
     eval { fs::mount::mount('none', "$::prefix/sys", 'sysfs') };
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;