From 48eccdbedd9787345e73bfd6d7961b00289884e7 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 27 Nov 2003 17:15:02 +0000 Subject: put in {raw_hds} non partitioned usb keys --- perl-install/fsedit.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index 1bd99657d..6aed45d48 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -175,7 +175,7 @@ sub hds { my @drives = detect_devices::hds(); - my (@hds); + my (@hds, @raw_hds); foreach my $hd (@drives) { $hd->{file} = devices::make($hd->{device}); $hd->{prefix} ||= $hd->{device}; @@ -205,6 +205,9 @@ sub hds { if ($hd->{readonly}) { log::l("using /proc/partitions since diskdrake failed :("); use_proc_partitions($hd); + } elsif (exists $hd->{usb_description} && ($hd->{type} ||= typeOfPart($hd->{device}))) { + push @raw_hds, $hd; + next; } elsif ($o_ask_before_blanking && $o_ask_before_blanking->($hd->{device}, $err)) { partition_table::raw::zero_MBR($hd); } else { @@ -230,7 +233,7 @@ sub hds { #- detect raids before LVM allowing LVM on raid my $raids = raids(\@hds); - my $all_hds = { %{ empty_all_hds() }, hds => \@hds, lvms => [], raids => $raids }; + my $all_hds = { %{ empty_all_hds() }, hds => \@hds, raw_hds => \@raw_hds, lvms => [], raids => $raids }; $all_hds->{lvms} = [ lvms($all_hds) ]; -- cgit v1.2.1