Changeset 3553 in MondoRescue for branches/3.2/mindi/mr-parted2fdisk

Timestamp:

Apr 7, 2016, 3:47:44 AM (9 years ago)

Author:

Bruno Cornec

Message:

Help Fix #790

• Fix perl functions to handle disk type (MBR vs GPT) on RHEL7 and unify output format
• Adds perl function to list all disks on the system
• Adds perl program to unit test these functions
• which_partition_format now uses mr-disk-type

File:

• branches/3.2/mindi/mr-parted2fdisk (modified) (2 diffs)

branches/3.2/mindi/mr-parted2fdisk

@@ -241 +241 @@
 $type = mr_disk_type($device);
 # Replacement code only for GPT disks
-if ((($v == 1) || (($v == 2) && ($maj < 22))) && ($type ne "msdos")) {
+if ((($v == 1) || (($v == 2) && ($maj < 22))) && ($type ne "MBR")) {
     pb_log(1,"This distribution uses an old fdisk, activating replacement code for GPT disk label...\n");
     my $parted = pb_check_req("parted",0);
@@ -258 +258 @@
             } elsif ($i =~ /^n$/) {
                 fdisk_list($device,undef,\%start,\%end, 0);
-                if ($type ne "gpt") {
+                if ($type ne "GPT") {
                     pb_log(1,"Forcing GPT type of disk label\n");
                     pb_log(1,"mklabel gpt\n");
                     pb_system("$parted -s $device mklabel gpt\n") if ($fake == 0);
-                    $type = "gpt";
+                    $type = "GPT";
                 }
                 $l = <STDIN>;