diff options
| author | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2017-02-04 23:42:51 +0000 |
|---|---|---|
| committer | Martin Whitaker <mageia@martin-whitaker.me.uk> | 2017-02-12 11:54:53 +0000 |
| commit | aeccd33e13b5bd532fe08e5b3f1630935bbd9cfb (patch) | |
| tree | 198652dcde90c296d904c58d795823380763a7d7 /perl-install | |
| parent | 3a76f08fbdd7dc83dc260e6af4f482c600774576 (diff) | |
| download | drakx-aeccd33e13b5bd532fe08e5b3f1630935bbd9cfb.tar drakx-aeccd33e13b5bd532fe08e5b3f1630935bbd9cfb.tar.gz drakx-aeccd33e13b5bd532fe08e5b3f1630935bbd9cfb.tar.bz2 drakx-aeccd33e13b5bd532fe08e5b3f1630935bbd9cfb.tar.xz drakx-aeccd33e13b5bd532fe08e5b3f1630935bbd9cfb.zip | |
Rename partition_table::_default_type to partition_table::default_type.
The following patches want to use it outside the partition_table module.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/partition_table.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/partition_table.pm b/perl-install/partition_table.pm index 2a226b7f7..f0cfc0ec2 100644 --- a/perl-install/partition_table.pm +++ b/perl-install/partition_table.pm @@ -244,14 +244,14 @@ sub get_normal_parts_and_holes { } -=item _default_type($hd) +=item default_type($hd) Returns the default type of $hd ('gpt' or 'dos' depending on whether we're running under UEFI or whether the disk size is too big for a MBR partition table. =cut -sub _default_type { +sub default_type { my ($hd) = @_; # default to GPT on UEFI systems and disks > 2TB @@ -273,7 +273,7 @@ sub initialize { my $current = c::get_disk_type($hd->{file}); $current = 'dos' if $current eq 'msdos'; - my $type = $o_type || $current || _default_type($hd); + my $type = $o_type || $current || default_type($hd); require "partition_table/$type.pm"; "partition_table::$type"->initialize($hd); |