From 19082bc5482c550cb4c5cf7d68523374a3c3eeff Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 13 Aug 2004 08:17:11 +0000 Subject: - 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 --- perl-install/bootloader.pm | 7 ------- 1 file changed, 7 deletions(-) (limited to 'perl-install/bootloader.pm') 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) = @_; -- cgit v1.2.1