- add field {part_number} for partitions

  (handle it in subpart_from_wild_device_name(), partition_table::read())
- create migrate_device_names() to handle the change of device names when
  changing kernel&modules (eg: hde->hda or hda->sda)
- change prototype of install_any::use_root_part()
  (prefix is dropped, optional $in is added)
- create fs::type::can_be_this_fs_type() and use it
- create devices::part_number() and devices::part_prefix() and use them

1 files changed, 13 insertions, 0 deletions

diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index 8a3654566..c7be884c2 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -239,4 +239,17 @@ sub from_devfs {
     undef;
 }
 
+sub simple_partition_scan {
+    my ($part) = @_;
+    $part->{device} =~ /([hs]d[a-z])(\d+)$/;
+}
+sub part_number {
+    my ($part) = @_;
+    (simple_partition_scan($part))[1];
+}
+sub part_prefix {
+    my ($part) = @_;
+    (simple_partition_scan($part))[0];
+}
+
 1;