summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-01-24 20:52:06 +0000
committerThierry Vignaud <tv@mageia.org>2012-01-24 20:52:06 +0000
commite2609ae801f5a982a0aef31bbccaff92ae0b33e8 (patch)
tree13c61a9127e7bd5b138cebbbd7e9addff51f3757 /perl-install/diskdrake
parentc28454aadbe0e17081125cdf9641a0639d6df057 (diff)
downloaddrakx-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.pm6
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,