summaryrefslogtreecommitdiffstats
path: root/perl-install/partition_table/readonly.pm
blob: ec4e5cc491b7e3ed7f7e506ccceebd877581fdeb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
package partition_table::readonly; # $Id: $

use diagnostics;
use strict;

our @ISA = qw(partition_table::raw);

use common;
use partition_table::raw;
use fs::type;
use lvm;

sub initialize {
    my ($class, $hd, $parts) = @_;

    $hd->{readonly} = $hd->{getting_rid_of_readonly_allowed} = 1;
    $hd->{primary} = { normal => $parts };
    delete $hd->{extended};

    bless $hd, $class;
}