diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/fs/any.pm | 16 | ||||
| -rw-r--r-- | perl-install/install/install2.pm | 12 |
2 files changed, 17 insertions, 11 deletions
diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm index 00d4639a0..d523a6943 100644 --- a/perl-install/fs/any.pm +++ b/perl-install/fs/any.pm @@ -88,4 +88,20 @@ sub create_minimal_files() { chmod 0666, "$::prefix/dev/null"; } +sub prepare_minimal_root { + my ($all_hds) = @_; + + fs::any::create_minimal_files(); + + eval { fs::mount::mount('none', "$::prefix/proc", 'proc') }; + eval { fs::mount::mount('none', "$::prefix/sys", 'sysfs') }; + eval { fs::mount::usbfs($::prefix) }; + + #- needed by lilo + if (-d '/dev/mapper' && !$::local_install) { + my @vgs = map { $_->{VG_name} } @{$all_hds->{lvms}}; + -e "/dev/$_" and cp_af("/dev/$_", "$::prefix/dev") foreach 'mapper', @vgs; + } +} + 1; diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index b894b6b8b..281116c70 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -177,17 +177,7 @@ sub formatPartitions { eval { rm_rf("$::prefix/var/lib/rpm") }; } - fs::any::create_minimal_files(); - - eval { fs::mount::mount('none', "$::prefix/proc", 'proc') }; - eval { fs::mount::mount('none', "$::prefix/sys", 'sysfs') }; - eval { fs::mount::usbfs($::prefix) }; - - #- needed by lilo - if (-d '/dev/mapper' && !$::local_install) { - my @vgs = map { $_->{VG_name} } @{$o->{all_hds}{lvms}}; - -e "/dev/$_" and cp_af("/dev/$_", "$::prefix/dev") foreach 'mapper', @vgs; - } + fs::any::prepare_minimal_root($o->{all_hds}); install::any::screenshot_dir__and_move(); install::any::move_compressed_image_to_disk($o); |