summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-13 08:17:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-13 08:17:11 +0000
commit19082bc5482c550cb4c5cf7d68523374a3c3eeff (patch)
treeb39045bd794a81b684c22a45e9e89c9f1734f2d8 /perl-install/bootloader.pm
parentc7afc55244fbc0b0d3ee57c6ce83fd24b42b11c1 (diff)
downloaddrakx-19082bc5482c550cb4c5cf7d68523374a3c3eeff.tar
drakx-19082bc5482c550cb4c5cf7d68523374a3c3eeff.tar.gz
drakx-19082bc5482c550cb4c5cf7d68523374a3c3eeff.tar.bz2
drakx-19082bc5482c550cb4c5cf7d68523374a3c3eeff.tar.xz
drakx-19082bc5482c550cb4c5cf7d68523374a3c3eeff.zip
- bootloader::remove_append_dict() is not useful, bootloader::set_append() can do the same
- don't modify anything before "Ok" is clicked - set_append with $netprofile eq '' will remove parameter PROFILE=xxx, which is what we want
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm7
1 files changed, 0 insertions, 7 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9a84dece1..7defe84da 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -508,13 +508,6 @@ sub remove_append_simple {
@$simple = grep { $_ ne $key } @$simple;
});
}
-sub remove_append_dict {
- my ($b, $key) = @_;
- modify_append($b, sub {
- my ($simple, $_dict) = @_;
- @$_dict = grep { $_->[0] ne $key } @$_dict;
- });
-}
sub set_append {
my $has_val = @_ > 2;
my ($b, $key, $val) = @_;