summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Terjan <pterjan@mageia.org>2012-04-24 21:17:30 +0000
committerPascal Terjan <pterjan@mageia.org>2012-04-24 21:17:30 +0000
commit2644a0c335af43c91f6af6bfac5a6c850e7273f3 (patch)
tree65358d786d5a01644330c4e13acdfbdf5e7bbc90 /perl-install
parent3619db5267492217dce4ae47d9c8e08be6f75837 (diff)
downloaddrakx-backup-do-not-use-2644a0c335af43c91f6af6bfac5a6c850e7273f3.tar
drakx-backup-do-not-use-2644a0c335af43c91f6af6bfac5a6c850e7273f3.tar.gz
drakx-backup-do-not-use-2644a0c335af43c91f6af6bfac5a6c850e7273f3.tar.bz2
drakx-backup-do-not-use-2644a0c335af43c91f6af6bfac5a6c850e7273f3.tar.xz
drakx-backup-do-not-use-2644a0c335af43c91f6af6bfac5a6c850e7273f3.zip
fix removing several notebook pages
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm12
-rw-r--r--perl-install/install/NEWS2
2 files changed, 11 insertions, 3 deletions
diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index 70f8a3f57..3ccc84d12 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -285,9 +285,15 @@ sub create_automatic_notebooks {
$may_add->(raid2kind()) if @{$all_hds->{raids}};
$may_add->(loopback2kind()) if @{$all_hds->{loopbacks}};
- @notebook = grep_index {
- my $b = $_->{marked} or $notebook_widget->remove_page($::i);
- $b;
+ my $i = 0;
+ @notebook = grep {
+ if ($_->{marked}) {
+ $i++;
+ 1;
+ } else {
+ $notebook_widget->remove_page($i);
+ 0;
+ }
} @notebook;
@notebook or $in->ask_warn(N("Error"), N("No hard disk drives found")), $in->exit(1);
}
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index b321f3278..0263453f3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -5,6 +5,8 @@
o detect LVM on top on Encrypted partitions (mga#5330)
- services:
o systemd support (mga#3253, mga#3740, mga#4910, mga#5122)
+- partitioning wizard:
+ o fix removing several notebook pages
Version 14.10 - 23 April 2012