diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-05 11:34:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-05 11:34:22 +0000 |
| commit | af5226b8b458b582ce2d2cf0c11e39941b3e7b4e (patch) | |
| tree | 192e47f946a76f22d09473955c5a3d4f5bce3f91 /perl-install | |
| parent | 0a6edb57d93f5b1cecb1afa1261d20b9eb9f8917 (diff) | |
| download | drakx-af5226b8b458b582ce2d2cf0c11e39941b3e7b4e.tar drakx-af5226b8b458b582ce2d2cf0c11e39941b3e7b4e.tar.gz drakx-af5226b8b458b582ce2d2cf0c11e39941b3e7b4e.tar.bz2 drakx-af5226b8b458b582ce2d2cf0c11e39941b3e7b4e.tar.xz drakx-af5226b8b458b582ce2d2cf0c11e39941b3e7b4e.zip | |
(lv_create): fix typo
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lvm.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/lvm.pm b/perl-install/lvm.pm index c2b15e613..d04d7aeee 100644 --- a/perl-install/lvm.pm +++ b/perl-install/lvm.pm @@ -90,7 +90,7 @@ sub lv_delete { sub lv_create { my ($lvm, $lv) = @_; my $list = $lvm->{primary}{normal}; - my $nb = 1 + max(map { basename($_) } @$list); + my $nb = 1 + max(map { basename($_->{device}) } @$list); $lv->{device} = "/dev/$lvm->{LVMname}/$nb"; run_program::run_or_die('lvcreate', '--size', int($lv->{size} / 2) . 'k', '-n', $nb, $lvm->{LVMname}); push @$list, $lv; |