summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/partition_table')
-rw-r--r--perl-install/partition_table/bsd.pm3
-rw-r--r--perl-install/partition_table/dos.pm1
-rw-r--r--perl-install/partition_table/gpt.pm2
-rw-r--r--perl-install/partition_table/mac.pm2
-rw-r--r--perl-install/partition_table/raw.pm1
-rw-r--r--perl-install/partition_table/sun.pm2
6 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/partition_table/bsd.pm b/perl-install/partition_table/bsd.pm
index 0e2421c25..560a75fd9 100644
--- a/perl-install/partition_table/bsd.pm
+++ b/perl-install/partition_table/bsd.pm
@@ -58,6 +58,9 @@ my $magic = 0x82564557;
my $nb_primary = 8;
my $offset = 0x40;
+
+sub use_pt_type { 1 }
+
sub read($$) {
my ($hd, $sector) = @_;
my $tmp;
diff --git a/perl-install/partition_table/dos.pm b/perl-install/partition_table/dos.pm
index 0ac56d453..43243259d 100644
--- a/perl-install/partition_table/dos.pm
+++ b/perl-install/partition_table/dos.pm
@@ -19,6 +19,7 @@ my $nb_primary = 4;
my $offset = $common::SECTORSIZE - length($magic) - $nb_primary * common::psizeof($format);
+sub use_pt_type { 1 }
sub hasExtended { 1 }
sub geometry_to_string {
diff --git a/perl-install/partition_table/gpt.pm b/perl-install/partition_table/gpt.pm
index 82ce9527e..de83dadf8 100644
--- a/perl-install/partition_table/gpt.pm
+++ b/perl-install/partition_table/gpt.pm
@@ -223,6 +223,8 @@ sub raw_add {
push @$raw, $part;
}
+sub use_pt_type { 1 }
+
sub adjustStart {}
sub adjustEnd {}
diff --git a/perl-install/partition_table/mac.pm b/perl-install/partition_table/mac.pm
index ef638f2b6..8d653932f 100644
--- a/perl-install/partition_table/mac.pm
+++ b/perl-install/partition_table/mac.pm
@@ -79,6 +79,8 @@ $p_format = join '', @$p_format;
my $magic = 0x4552;
my $pmagic = 0x504D;
+sub use_pt_type { 1 }
+
sub first_usable_sector { 1 }
sub adjustStart($$) {
diff --git a/perl-install/partition_table/raw.pm b/perl-install/partition_table/raw.pm
index 35a67ebd8..f84876f04 100644
--- a/perl-install/partition_table/raw.pm
+++ b/perl-install/partition_table/raw.pm
@@ -55,6 +55,7 @@ if_(arch() =~ /ppc/,
sub typeOfMBR($) { typeFromMagic(devices::make($_[0]), @MBR_signatures) }
sub typeOfMBR_($) { typeFromMagic($_[0], @MBR_signatures) }
+sub use_pt_type { 0 }
sub hasExtended { 0 }
sub set_best_geometry_for_the_partition_table {}
diff --git a/perl-install/partition_table/sun.pm b/perl-install/partition_table/sun.pm
index 54e734ca8..49228d0f8 100644
--- a/perl-install/partition_table/sun.pm
+++ b/perl-install/partition_table/sun.pm
@@ -39,6 +39,8 @@ my $magic = 0xDABE;
my $nb_primary = 8;
my $offset = 0;
+sub use_pt_type { 1 }
+
sub adjustStart($$) {
my ($hd, $part) = @_;
my $end = $part->{start} + $part->{size};