- diskdrake:

  o write mdadm.conf when it is modified (#32360)
    (a nicer fix would be to write it when needed, not so soon, but it's harder)

3 files changed, 8 insertions, 0 deletions

diff --git a/perl-install/NEWS b/perl-install/NEWS
index e130ab054..f1cc2f705 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,7 @@
+- diskdrake:
+  o write mdadm.conf when it is modified (#32360)
+    (a nicer fix would be to write it when needed, not so soon, but it's harder)
+
 Version 10.4.172 - 21 August 2007, by Olivier "blino" Blin
 
 - ignore wmaster* devices when detecting wireless interfaces
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index aac735029..9f3413dae 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -845,6 +845,7 @@ sub Add2RAID {
 
     if (ref($md_part)) {
 	raid::add($md_part, $part);
+	raid::write_conf($raids) if $::isStandalone;
     } else {
 	raid::check_prog($in) or return;
 	my $md_part = raid::new($raids, disks => [ $part ]);
@@ -1048,6 +1049,7 @@ sub modifyRAID {
 		 ) or return;
     raid::change_device($md_part, $new_device);
     raid::updateSize($md_part); # changing the raid level changes the size available
+    raid::write_conf($raids) if $::isStandalone;
     1;
 }
 
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 135218344..0475b68ef 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -53,6 +53,7 @@ sub delete {
     inactivate_and_dirty($md_part);
     delete $_->{raid} foreach @{$md_part->{disks}};
     @$raids = grep { $_ != $md_part } @$raids;
+    write_conf($raids) if $::isStandalone;
 }
 
 sub change_device {
@@ -77,6 +78,7 @@ sub removeDisk {
     } else {
 	@$raids = grep { $_ != $md_part } @$raids;
     }
+    write_conf($raids) if $::isStandalone;
 }
 
 sub updateSize {