summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-03 19:16:15 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-03 19:16:15 +0000
commit69d736180b208aff2f62996e0cf6b01f90bf83eb (patch)
tree2ef3c86b74909a56d9bdd2ec25e8d36aa962df37 /perl-install
parent27e95a15d9845fa48696d7d2139335f063de5060 (diff)
downloaddrakx-backup-do-not-use-69d736180b208aff2f62996e0cf6b01f90bf83eb.tar
drakx-backup-do-not-use-69d736180b208aff2f62996e0cf6b01f90bf83eb.tar.gz
drakx-backup-do-not-use-69d736180b208aff2f62996e0cf6b01f90bf83eb.tar.bz2
drakx-backup-do-not-use-69d736180b208aff2f62996e0cf6b01f90bf83eb.tar.xz
drakx-backup-do-not-use-69d736180b208aff2f62996e0cf6b01f90bf83eb.zip
fix for lvm (non-)creation of devices
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/fs.pm8
1 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 8404cdaf4..7c026d26f 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -94,7 +94,10 @@ sub add2all_hds {
}
sub get_major_minor {
- (undef, $_->{major}, $_->{minor}) = devices::entry($_->{device}) foreach @_;
+ eval {
+ my (undef, $major, $minor) = devices::entry($_->{device});
+ ($_->{major}, $_->{minor}) = ($major, $minor);
+ } foreach @_;
}
sub merge_info_from_mtab {
@@ -141,7 +144,8 @@ sub write_fstab {
($_->{mntpoint} eq '/' ? "/initrd/loopfs$_->{loopback_file}" : $_->{device}) :
do {
my $dir = $_->{device} =~ m|^/| ? '' : '/dev/';
- devices::make("$prefix$dir$_->{device}"); "$dir$_->{device}";
+ eval { devices::make("$prefix$dir$_->{device}") };
+ "$dir$_->{device}";
};
mkdir("$prefix/$_->{mntpoint}", 0755);