summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/diskdrake
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-03 19:26:37 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-03 19:26:37 +0000
commitdff46e5d7ce58722f7ea272946fd21a161f47116 (patch)
treee421bb7b58d10924a44d6bc86c4abdfa075dae3a /perl-install/standalone/diskdrake
parent74f2b68a5699dd56aacc10f5aa5bb87337dbcc1d (diff)
downloaddrakx-backup-do-not-use-dff46e5d7ce58722f7ea272946fd21a161f47116.tar
drakx-backup-do-not-use-dff46e5d7ce58722f7ea272946fd21a161f47116.tar.gz
drakx-backup-do-not-use-dff46e5d7ce58722f7ea272946fd21a161f47116.tar.bz2
drakx-backup-do-not-use-dff46e5d7ce58722f7ea272946fd21a161f47116.tar.xz
drakx-backup-do-not-use-dff46e5d7ce58722f7ea272946fd21a161f47116.zip
small adaptation
Diffstat (limited to 'perl-install/standalone/diskdrake')
-rwxr-xr-xperl-install/standalone/diskdrake3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index bb3fb9197..f61a91abf 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -58,7 +58,7 @@ if ($>) {
# exit !$@;
#}
my $in = interactive_gtk->new;
-my $hds =
+my ($hds, $lvms) =
catch_cdie { fsedit::hds([ detect_devices::hds() ], {}) }
sub {
my ($err) = $@ =~ /(.*) at /;
@@ -67,6 +67,7 @@ my $hds =
[_("I can't read your partition table, it's too corrupted for me :(
I'll try to go on blanking bad partitions"), $err]);
};
+push @$hds, @$lvms;
$SIG{__DIE__} = sub { chomp (my $m = $_[0]); log::l("ERROR: $m") };
my $fstab = [ fsedit::get_fstab(@$hds) ];