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 | f687228b6c0125b92fd51d33a284d74ca9a4b292 (patch) | |
| tree | 13c61a9127e7bd5b138cebbbd7e9addff51f3757 /perl-install/diskdrake | |
| parent | cc4c1c3b052eaeb9dab5a2851c58a9e946eb63ba (diff) | |
| download | drakx-f687228b6c0125b92fd51d33a284d74ca9a4b292.tar drakx-f687228b6c0125b92fd51d33a284d74ca9a4b292.tar.gz drakx-f687228b6c0125b92fd51d33a284d74ca9a4b292.tar.bz2 drakx-f687228b6c0125b92fd51d33a284d74ca9a4b292.tar.xz drakx-f687228b6c0125b92fd51d33a284d74ca9a4b292.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, |