diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-13 07:55:43 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-13 07:55:43 +0000 |
| commit | 56dcacb8089df70e725ae95bf827c14563db741e (patch) | |
| tree | 3a556e56ea81690097b8442560a5a5f75cc224f7 | |
| parent | 1788e6209bf19ccd15b32f86b2b225f5172b05d5 (diff) | |
| download | drakx-56dcacb8089df70e725ae95bf827c14563db741e.tar drakx-56dcacb8089df70e725ae95bf827c14563db741e.tar.gz drakx-56dcacb8089df70e725ae95bf827c14563db741e.tar.bz2 drakx-56dcacb8089df70e725ae95bf827c14563db741e.tar.xz drakx-56dcacb8089df70e725ae95bf827c14563db741e.zip | |
add remove_append_dict
| -rw-r--r-- | perl-install/bootloader.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 01a21b25b..bc0617a86 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -508,6 +508,13 @@ 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) = @_; |