From 03f3b7743eb58b6415a6dc32ae37fe466f534216 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 5 Sep 2008 08:36:17 +0000 Subject: - bootloader-config: o --action migrate-to-uuids: backup conf file prior to migration with suffix --- perl-install/standalone/bootloader-config | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/bootloader-config') diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index 4a4b194df..b5a8e6807 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -259,7 +259,7 @@ sub migrate_to_uuids() { }); if ($bootloader_migrated) { - bootloader::action($bootloader, 'write', $all_hds); + bootloader::action($bootloader, 'write', $all_hds, '.before-migrate-to-uuids'); bootloader::action($bootloader, 'when_config_changed'); } } @@ -272,7 +272,10 @@ sub _migrate_to_uuids__fstab() { $fstab_migrated = 1; } } - fs::write_fstab($all_hds) if $fstab_migrated; + if ($fstab_migrated) { + cp_af('/etc/fstab', '/etc/fstab.before-migrate-to-uuids'); + fs::write_fstab($all_hds); + } } sub _migrate_dev_to_uuid { -- cgit v1.2.1