From f687228b6c0125b92fd51d33a284d74ca9a4b292 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 24 Jan 2012 20:52:06 +0000 Subject: (Add2LVM) better default name for new VG (vg-mga, vg-mga1, ... instead of vg-0, vg-1, ...) --- perl-install/NEWS | 4 ++++ perl-install/diskdrake/interactive.pm | 6 +++--- perl-install/install/NEWS | 3 +++ 3 files changed, 10 insertions(+), 3 deletions(-) diff --git a/perl-install/NEWS b/perl-install/NEWS index d816409ab..f98fcf27c 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- diskdrake: + o better default name for new VG (vg-mga, vg-mga1, ... + instead of vg-0, vg-1, ...) + Version 13.77 - 23 January 2012 - add support for XZ modules 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, diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 38eb3a19f..8e15b1f56 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,5 +1,8 @@ - summary: o list shorewall with iptables* in services +- diskdrake: + o better default name for new VG (vg-mga, vg-mga1, ... + instead of vg-0, vg-1, ...) Version 13.77 - 23 January 2012 -- cgit v1.2.1