summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table.pm
diff options
context:
space:
mode:
authorMartin Whitaker <mageia@martin-whitaker.me.uk>2017-02-04 23:42:51 +0000
committerMartin Whitaker <mageia@martin-whitaker.me.uk>2017-02-25 11:42:43 +0000
commitb0c38fdecf52eaff16597fbd9d0e9772e107fc34 (patch)
treeabf9667caa4f5aced18cce70019f1e3bf18bfcba /perl-install/partition_table.pm
parent3643baad41e7237b9d6acbe524220cde85961772 (diff)
downloaddrakx-b0c38fdecf52eaff16597fbd9d0e9772e107fc34.tar
drakx-b0c38fdecf52eaff16597fbd9d0e9772e107fc34.tar.gz
drakx-b0c38fdecf52eaff16597fbd9d0e9772e107fc34.tar.bz2
drakx-b0c38fdecf52eaff16597fbd9d0e9772e107fc34.tar.xz
drakx-b0c38fdecf52eaff16597fbd9d0e9772e107fc34.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/partition_table.pm')
-rw-r--r--perl-install/partition_table.pm6
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);