From 65ace13dc9c5de248e0d75d6e2076f640793528e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Sep 2007 12:47:50 +0000
Subject: create partition_table::readonly and use it

---
 perl-install/partition_table/readonly.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 perl-install/partition_table/readonly.pm

(limited to 'perl-install/partition_table/readonly.pm')

diff --git a/perl-install/partition_table/readonly.pm b/perl-install/partition_table/readonly.pm
new file mode 100644
index 000000000..c0d483aaf
--- /dev/null
+++ b/perl-install/partition_table/readonly.pm
@@ -0,0 +1,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;
+use lvm;
+
+sub initialize {
+    my ($class, $hd, $parts) = @_;
+
+    $hd->{readonly} = $hd->{getting_rid_of_readonly_allowed} = 1;
+    $hd->{primary}{normal} = $parts;   
+
+    bless $hd, $class;
+}
-- 
cgit v1.2.1