summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/lvm.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm
index 19ee9105f..c0e29450a 100644
--- a/perl-install/lvm.pm
+++ b/perl-install/lvm.pm
@@ -33,6 +33,13 @@ init();
sub init() {
eval { modules::load('dm-mod') };
devices::make('urandom');
+ my $control = '/dev/mapper/control';
+ if (! -e $control) {
+ my ($major) = cat_('/proc/devices') =~ /(\d+) misc$/m or die "device-mapper error";
+ my ($minor) = cat_('/proc/misc') =~ /(\d+) device-mapper$/m or die "device-mapper error";
+ mkdir_p(dirname($control));
+ syscall_('mknod', $control, c::S_IFCHR() | 0600, makedev($major, $minor)) or die "mknod $control failed: $!";
+ }
run_program::run('lvm2', 'vgscan') if !-e '/etc/lvmtab';
run_program::run('lvm2', 'vgchange', '-a', 'y');
}