summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-08-05 10:33:49 +0000
committerOlivier Blin <oblin@mandriva.org>2004-08-05 10:33:49 +0000
commite0b3337266c273ac85815c3b9feb574dbcd0d73d (patch)
tree0b8c3df75c52bd1093a430f45d098f4e38a02acd /perl-install
parentdc8ed9862bc3564ec7d7fa2d4feeff4cb97847b9 (diff)
downloaddrakx-e0b3337266c273ac85815c3b9feb574dbcd0d73d.tar
drakx-e0b3337266c273ac85815c3b9feb574dbcd0d73d.tar.gz
drakx-e0b3337266c273ac85815c3b9feb574dbcd0d73d.tar.bz2
drakx-e0b3337266c273ac85815c3b9feb574dbcd0d73d.tar.xz
drakx-e0b3337266c273ac85815c3b9feb574dbcd0d73d.zip
try to mount usbdevfs in $::prefix before attempting to run adsl start
programs
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/adsl.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 49c33d707..98d6c7414 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -318,8 +318,12 @@ TYPE=$kind
write_cnx_script($netc);
unless ($::isStandalone) {
+ $::isInstall && eval {
+ require fs;
+ fs::mount("/proc/bus/usb", "$::prefix/proc/bus/usb", 'usbdevfs');
+ } or log::l("failed to mount usbdevfs");
$modems{$adsl_device}{modules} && eval { modules::load(@{$modems{$adsl_device}{modules}}) }
- or log::l("failled to load " . join('', @{$modems{$adsl_device}{modules}}), " modules: $@");
+ or log::l("failed to load " . join('', @{$modems{$adsl_device}{modules}}), " modules: $@");
$modems{$adsl_device}{start} and run_program::rooted($::prefix, $modems{$adsl_device}{start});
}
}