perl-install/partition_table/readonly.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package partition_table::readonly; # $Id: $

use diagnostics;
use strict;

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

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

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;
}