aboutsummaryrefslogtreecommitdiffstats
path: root/pt-br
ModeNameSize
l---------17logstatsplain
l---------27logstatsplain
l---------37logstatsplain
l---------47logstatsplain
l---------58logstatsplain
d---------about389logstatsplain
l---------alpha11logstatsplain
l---------calendar14logstatsplain
l---------charter.html18logstatsplain
l---------community15logstatsplain
l---------contact13logstatsplain
l---------contribute16logstatsplain
l---------doc9logstatsplain
l---------donate12logstatsplain
l---------downloads15logstatsplain
l---------index.php15logstatsplain
l---------legal11logstatsplain
l---------map9logstatsplain
l---------support13logstatsplain
l---------thank-you15logstatsplain
l---------timeline14logstatsplain
generated by cgit v1.2.1 (git 2.21.0) at 2024-05-22 15:42:55 +0000
="hl kwb">$prev_part; foreach my $part (@$parts) { my $dev = $part->{dev}; if (my $hd = find { $part->{dev} =~ /^\Q$_->{device}\E./ } @$hds) { put_in_hash($part, partition_table::hd2minimal_part($hd)); } undef $prev_part if $prev_part && ($prev_part->{rootDevice} || '') ne ($part->{rootDevice} || ''); $part->{device} = $dev; $part->{size} *= 2; # from KB to sectors $part->{start} = $prev_part ? $prev_part->{start} + $prev_part->{size} : 0; require fs::type; put_in_hash($part, fs::type::type_subpart_from_magic($part)); $prev_part = $part; delete $part->{dev}; # cleanup } @$parts; } sub compare { my ($hd) = @_; eval { $hd->isa('partition_table::lvm') } and return; my @l1 = partition_table::get_normal_parts($hd); my @l2 = grep { $_->{rootDevice} eq $hd->{device} } &read([$hd]); #- /proc/partitions includes partition with type "empty" and a non-null size #- so add them for comparison my ($len1, $len2) = (int(@l1) + $hd->{primary}{nb_special_empty}, int(@l2)); if ($len1 != $len2) { if (find { $_->{pt_type} == 0xbf } @l1) { log::l("not using /proc/partitions because of the presence of solaris extended partition"); #- cf #33866 } else { die sprintf( "/proc/partitions does not agree with drakx %d != %d for %s:\n%s\n", $len1, $len2, $hd->{device}, "/proc/partitions: " . join(", ", map { "$_->{device} ($_->{rootDevice})" } @l2)); } } $len2; } sub use_ { my ($hd) = @_; require partition_table::readonly; partition_table::readonly->initialize($hd, [ grep { $_->{rootDevice} eq $hd->{device} } &read([$hd]) ]); } 1;