diff options
| author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2017-04-02 20:02:13 +0100 |
|---|---|---|
| committer | Rémi Verschelde <rverschelde@gmail.com> | 2017-04-04 20:04:51 +0200 |
| commit | 8c1b77dc5934c4ad1bf9aa8ed11758eef7290bc7 (patch) | |
| tree | d534260c1259bc4a9fb1cc9b73c50c468e015ba2 /perl-install/fs/proc_partitions.pm | |
| parent | 23db13194282cfff24d4bc88a7790ebd272953a0 (diff) | |
| download | drakx-8c1b77dc5934c4ad1bf9aa8ed11758eef7290bc7.tar drakx-8c1b77dc5934c4ad1bf9aa8ed11758eef7290bc7.tar.gz drakx-8c1b77dc5934c4ad1bf9aa8ed11758eef7290bc7.tar.bz2 drakx-8c1b77dc5934c4ad1bf9aa8ed11758eef7290bc7.tar.xz drakx-8c1b77dc5934c4ad1bf9aa8ed11758eef7290bc7.zip | |
Speed up proc_partitions::compare() and avoid unwanted udev events.
The compare function doesn't look at the filesystem type, so there's
no need to probe it.
This avoids unwanted udev events when we are checking that the kernel
has been informed of partition table changes.
Diffstat (limited to 'perl-install/fs/proc_partitions.pm')
| -rw-r--r-- | perl-install/fs/proc_partitions.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/fs/proc_partitions.pm b/perl-install/fs/proc_partitions.pm index a6006a3bb..ea714ca5b 100644 --- a/perl-install/fs/proc_partitions.pm +++ b/perl-install/fs/proc_partitions.pm @@ -20,7 +20,7 @@ sub read_raw() { } sub read { - my ($hds) = @_; + my ($hds, $o_ignore_fstype) = @_; my @all = read_raw(); my ($parts, $_disks) = partition { $_->{dev} =~ /\d$/ && $_->{dev} !~ /^(sr|scd)/ } @all; @@ -40,7 +40,7 @@ sub read { $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)); + put_in_hash($part, fs::type::type_subpart_from_magic($part)) if !$o_ignore_fstype; $prev_part = $part; delete $part->{dev}; # cleanup } @@ -54,7 +54,7 @@ sub compare { my @l1 = partition_table::get_normal_parts($hd); - my @l2 = grep { $_->{rootDevice} eq $hd->{device} } &read([$hd]); + my @l2 = grep { $_->{rootDevice} eq $hd->{device} } &read([$hd], 1); #- /proc/partitions includes partition with type "empty" and a non-null size #- so add them for comparison |