diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lvm.pm | 7 |
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'); } |