diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-01-24 20:52:06 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-01-24 20:52:06 +0000 |
| commit | e2609ae801f5a982a0aef31bbccaff92ae0b33e8 (patch) | |
| tree | 13c61a9127e7bd5b138cebbbd7e9addff51f3757 /perl-install/diskdrake | |
| parent | c28454aadbe0e17081125cdf9641a0639d6df057 (diff) | |
| download | drakx-backup-do-not-use-e2609ae801f5a982a0aef31bbccaff92ae0b33e8.tar drakx-backup-do-not-use-e2609ae801f5a982a0aef31bbccaff92ae0b33e8.tar.gz drakx-backup-do-not-use-e2609ae801f5a982a0aef31bbccaff92ae0b33e8.tar.bz2 drakx-backup-do-not-use-e2609ae801f5a982a0aef31bbccaff92ae0b33e8.tar.xz drakx-backup-do-not-use-e2609ae801f5a982a0aef31bbccaff92ae0b33e8.zip | |
(Add2LVM) better default name for new VG (vg-mga, vg-mga1, ...
instead of vg-0, vg-1, ...)
Diffstat (limited to 'perl-install/diskdrake')
| -rw-r--r-- | perl-install/diskdrake/interactive.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm index 6678c37d1..777184069 100644 --- a/perl-install/diskdrake/interactive.pm +++ b/perl-install/diskdrake/interactive.pm @@ -987,12 +987,12 @@ sub Add2LVM { require lvm; if (!ref $lvm) { # create new lvm - my $n = 0; - while (member("vg$n", @lvm_names)) { + my $n; my $str = "vg-mga"; + while (member("$str$n", @lvm_names)) { $n++; } - my $name = "vg$n"; + my $name = "$str$n"; $in->ask_from_({ title => N("LVM name"), messages => N("Enter a name for the new LVM volume group"), focus_first => 1, |