diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-03 19:26:37 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-03 19:26:37 +0000 |
commit | dff46e5d7ce58722f7ea272946fd21a161f47116 (patch) | |
tree | e421bb7b58d10924a44d6bc86c4abdfa075dae3a /perl-install/standalone/diskdrake | |
parent | 74f2b68a5699dd56aacc10f5aa5bb87337dbcc1d (diff) | |
download | drakx-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-x | perl-install/standalone/diskdrake | 3 |
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) ]; |