From fb99b425049ff55d76b863c9357d58d5925a3c3d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 17 Aug 2001 17:09:25 +0000 Subject: a hell lot of cleanup/rewrite: * diskdrake_interactive created, diskdrake is now interactive aware * added some documentation about the structure used for partitioning * all_hds now contain the various hds, lvm, raid * cleanup the isLVM, isRAID and alike functions * field {type} in detect_devices is now {media_type} * detect_devices::floppies is now floppies_dev * removed old function prototypes --- perl-install/install2.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 392ad4c3b..3ceedd2b8 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -180,7 +180,7 @@ sub formatPartitions { any::rotate_logs($o->{prefix}); require raid; - raid::prepare_prefixed($o->{raid}, $o->{prefix}); + raid::prepare_prefixed($o->{all_hds}{raids}, $o->{prefix}); my $d = "/initrd/loopfs/lnx4win"; if (-d $d) { @@ -609,6 +609,7 @@ sub main { common::sync(); common::sync(); log::l("installation complete, leaving"); + log::l("files still open by install2: ", readlink($_)) foreach glob_("/proc/$$/fd/*"); print "\n" x 80; } -- cgit v1.2.1