From ec593e18cf024fe09356a5ea41d4ac3e4be078a7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 29 Dec 2004 18:34:27 +0000 Subject: move device mapper initialisation out of lvm.pm into devices.pm (since it will be useful for other things) --- perl-install/devices.pm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'perl-install/devices.pm') diff --git a/perl-install/devices.pm b/perl-install/devices.pm index 316a2f0f4..5771468c8 100644 --- a/perl-install/devices.pm +++ b/perl-install/devices.pm @@ -64,6 +64,18 @@ sub set_loop { $dev; } +sub init_device_mapper() { + eval { modules::load('dm-mod') }; + make('urandom'); + my $control = '/dev/mapper/control'; + if (! -e $control) { + my ($major) = cat_('/proc/devices') =~ /(\d+) misc$/m or return; + my ($minor) = cat_('/proc/misc') =~ /(\d+) device-mapper$/m or return; + mkdir_p(dirname($control)); + syscall_('mknod', $control, c::S_IFCHR() | 0600, makedev($major, $minor)) or die "mknod $control failed: $!"; + } +} + sub entry { my ($type, $major, $minor); local ($_) = @_; -- cgit v1.2.1