summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-10-05 02:43:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-10-05 02:43:01 +0000
commitba61c8e137b93d30187a353aa77529737614c748 (patch)
treef15c9b02ce410ad19e9f652d745481d4e63edcf3 /perl-install
parentade0e6c6bf7e5cbcddced1abc543d7b5814a2137 (diff)
downloaddrakx-ba61c8e137b93d30187a353aa77529737614c748.tar
drakx-ba61c8e137b93d30187a353aa77529737614c748.tar.gz
drakx-ba61c8e137b93d30187a353aa77529737614c748.tar.bz2
drakx-ba61c8e137b93d30187a353aa77529737614c748.tar.xz
drakx-ba61c8e137b93d30187a353aa77529737614c748.zip
don't use devices::part_number(), otherwise it fails with c0d0p* devices
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/partition_table.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm
index a5c6d5634..1d5e87e47 100644
--- a/perl-install/partition_table.pm
+++ b/perl-install/partition_table.pm
@@ -344,7 +344,7 @@ sub will_tell_kernel {
will_tell_kernel($hd, del => $o_part);
will_tell_kernel($hd, add => $o_part);
} else {
- my $part_number = sub { devices::part_number($o_part) || internal_error("bad device " . description($o_part)) };
+ my $part_number = sub { $o_part->{device} =~ /(\d+)$/ ? $1 : internal_error("bad device " . description($o_part)) };
push @{$hd->{'will_tell_kernel' . ($o_delay || '')} ||= []},
[
$action,