readonly.pm « partition_table « perl-install - drakx - Mageia Installer and base platform for many utilities

index : drakx

Mageia Installer and base platform for many utilities

Thierry Vignaud [tv]

summary refs log tree commit diff stats

path: root/perl-install/partition_table/readonly.pm

blob: ee3624f88522d655ab22b5b83a0c411d04e571eb (plain) Diffstat (limited to 'docs/installer/es/DrakX.xml')

0 files changed, 0 insertions, 0 deletions

9 20

package partition_table::readonly;

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