summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-08-30 17:19:11 +0000
committerThierry Vignaud <tv@mageia.org>2012-08-30 17:19:11 +0000
commit8d3a4aac9799b67fd172efb0907426a53f661176 (patch)
tree8c09cfa13e8f0aca6f20e7f824eeccfd32b67200 /perl-install/install
parentd42fbc7ec62bed5d9174296d45ec5e194ca74d83 (diff)
downloaddrakx-backup-do-not-use-8d3a4aac9799b67fd172efb0907426a53f661176.tar
drakx-backup-do-not-use-8d3a4aac9799b67fd172efb0907426a53f661176.tar.gz
drakx-backup-do-not-use-8d3a4aac9799b67fd172efb0907426a53f661176.tar.bz2
drakx-backup-do-not-use-8d3a4aac9799b67fd172efb0907426a53f661176.tar.xz
drakx-backup-do-not-use-8d3a4aac9799b67fd172efb0907426a53f661176.zip
adapt to usbfs death (1/4): check for /sys/kernel/debug/usb instead of
/proc/bus/usb
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps.pm2
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e722cb1da..4f2e44bd1 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- adapt to usbfs death
+
Version 14.34 - 30 August 2012
- adapt to perl-5.16.1
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index 9e8909535..802267102 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -177,8 +177,8 @@ sub selectInstallClass {
sub doPartitionDisksBefore {
my ($o) = @_;
eval {
+ eval { fs::mount::umount("$::prefix/sys/kernel/debug/usb") };
eval { fs::mount::umount("$::prefix/sys") };
- eval { fs::mount::umount("$::prefix/proc/bus/usb") };
eval { fs::mount::umount("$::prefix/proc") };
eval { fs::mount::umount_all($o->{fstab}) };
eval { sleep 1; fs::mount::umount_all($o->{fstab}) } if $@; #- HACK