1 files changed, 4 insertions, 1 deletions
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{$_};