From 07176b363fe8b3cb3c885f378c93748ef749dcfb Mon Sep 17 00:00:00 2001
From: Stew Benedict <stewb@mandriva.org>
Date: Thu, 10 Mar 2005 17:59:25 +0000
Subject: Diskdrake mods for XBox (thks Pixel)

---
 perl-install/diskdrake/interactive.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index ef78889a1..bead96915 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -316,7 +316,7 @@ sub hd_possible_actions_interactive {
 
 sub Clear_all {
     my ($in, $hd, $all_hds) = @_;
-
+    return if is_xbox(); #- do not let them wipe the OS
     my @parts = partition_table::get_normal_parts($hd);
     foreach (@parts) {
 	RemoveFromLVM($in, $hd, $_, $all_hds) if isPartOfLVM($_);
@@ -457,6 +457,9 @@ sub part_possible_actions {
     );
     if (isEmpty($part)) {
 	if_(!$hd->{readonly}, N_("Create"));
+    } elsif ($part->{pt_type} == 0xbf) {
+        #- XBox OS partitions, do not allow anything
+        return;    
     } else {
         grep { 
     	    my $cond = $actions{$_};
-- 
cgit v1.2.1