… | |
… | |
1554 | |
1554 | |
1555 | $path |
1555 | $path |
1556 | }; |
1556 | }; |
1557 | |
1557 | |
1558 | if ($type eq "partition" or $type eq "legacypartition") { |
1558 | if ($type eq "partition" or $type eq "legacypartition") { |
1559 | $type eq "legacypartition" |
|
|
1560 | and die "legacypartition decocde support missing\n"; # different structure layout? |
|
|
1561 | |
|
|
1562 | my $partdata = substr $device, 0, 16, ""; |
1559 | my $partdata = substr $device, 0, 16, ""; |
1563 | my ($blocktype, $parttype) = unpack "VV", substr $device, 0, 4 * 2, ""; |
1560 | my ($blocktype, $parttype) = unpack "VV", substr $device, 0, 4 * 2, ""; |
1564 | |
1561 | |
1565 | $blocktype = $block_type[$blocktype] // die "unknown block device type '$blocktype'\n"; |
1562 | $blocktype = $block_type[$blocktype] // die "unknown block device type '$blocktype'\n"; |
1566 | $parttype = $part_type[$parttype] // die "unknown partition type\n"; |
1563 | $parttype = $part_type[$parttype] // die "unknown partition type\n"; |