From 5a2debcd2089d88fe19a2e88d1a4ce42f8c8c5b9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 26 Sep 2008 15:35:36 +0000 Subject: create fstab.old when writing fstab --- perl-install/fs.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-install/fs.pm b/perl-install/fs.pm index 0025583c9..1969d8f05 100644 --- a/perl-install/fs.pm +++ b/perl-install/fs.pm @@ -291,6 +291,7 @@ sub write_fstab { log::l("writing $o_prefix/etc/fstab"); my $fstab = [ fs::get::really_all_fstab($all_hds), @{$all_hds->{special}} ]; my ($s, $smb_credentials) = prepare_write_fstab($fstab, $o_prefix, ''); + renamef("$o_prefix/etc/fstab", "$o_prefix/etc/fstab.old"); output("$o_prefix/etc/fstab", $s); fs::remote::smb::save_credentials($_) foreach @$smb_credentials; fs::dmcrypt::save_crypttab($all_hds) if @{$all_hds->{dmcrypts}}; -- cgit v1.2.1