From ba61c8e137b93d30187a353aa77529737614c748 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Oct 2004 02:43:01 +0000 Subject: don't use devices::part_number(), otherwise it fails with c0d0p* devices --- perl-install/partition_table.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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, -- cgit v1.2.1