diff options
| -rw-r--r-- | perl-install/bootloader.pm | 1 | ||||
| -rw-r--r-- | perl-install/install2.pm | 4 | ||||
| -rw-r--r-- | perl-install/network/adsl.pm | 6 | ||||
| -rw-r--r-- | perl-install/pkgs.pm | 3 |
4 files changed, 4 insertions, 10 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 809f87acc..632766b66 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -828,7 +828,6 @@ sub set_profiles { sub get_of_dev { my ($unix_dev) = @_; - eval { fs::mount('none', '$::prefix/sys', 'sysfs', 0) } if -d "$::prefix/sys/devices"; devices::make("$::prefix$unix_dev"); my $of_dev; diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 2d6be8961..4463aaff2 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -186,6 +186,10 @@ sub formatPartitions { devices::make("$o->{prefix}/dev/null"); chmod 0666, "$o->{prefix}/dev/null"; + eval { fs::mount('none', "$o->{prefix}/proc", 'proc') }; + eval { fs::mount('none', "$o->{prefix}/proc/bus/usb", 'usbdevfs') }; + eval { fs::mount('none', "$o->{prefix}/sys", 'sysfs') }; + common::screenshot_dir__and_move(); any::rotate_logs($o->{prefix}); diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm index 77dba84a5..a47fde34e 100644 --- a/perl-install/network/adsl.pm +++ b/perl-install/network/adsl.pm @@ -319,12 +319,6 @@ TYPE=$kind write_cnx_script($netc); unless ($::isStandalone) { - #- proc and usbdevfs need to be mounted for external start commands - $::isInstall && eval { - require fs; - fs::mount("/proc", "$::prefix/proc", 'proc') if !-f "$::prefix/proc/mounts"; - fs::mount('none', "$::prefix/proc/bus/usb", 'usbdevfs'); - } or log::l("failed to mount usbdevfs"); my @modules = (@{$modems{$adsl_device}{modules}}, map { $_->[1] } @{$modems{$adsl_device}{aliases}}); @modules && eval { modules::load(@modules) } or log::l("failed to load " . join(',', @modules), " modules: $@"); diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index a97b2ed3e..2fb31c834 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -1016,7 +1016,6 @@ sub install($$$;$$) { log::l("pkgs::install $prefix"); log::l("pkgs::install the following: ", join(" ", map { $_->name } values %packages)); - eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo"; URPM::read_config_files(); my $LOG = openInstallLog($prefix); @@ -1236,8 +1235,6 @@ sub remove { $trans->remove($p); } - eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo"; - #- we are not checking depends since it should come when #- upgrading a system. although we may remove some functionalities ? |