From 00aa18f86ba5bfa5b242f9e14eead5f061afa27f Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 26 Nov 2001 16:33:49 +0000
Subject: getAndSaveAutoInstallFloppy: don't die when output'ing of
 auto_inst.cfg is not possible

---
 perl-install/install_any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index f93a14e4e..00bc741d2 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -770,7 +770,8 @@ sub getAndSaveAutoInstallFloppy {
 ", "07\n" if !$replay;
 
 	local $o->{partitioning}{clearall} = !$replay;
-	output("$mountdir/auto_inst.cfg", g_auto_install($replay));
+	eval { output("$mountdir/auto_inst.cfg", g_auto_install($replay)); };
+	$@ and log::l("Warning: <$@>");
 
 	fs::umount($mountdir);
 	rmdir $mountdir;
-- 
cgit v1.2.1