diff options
| -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) = @_; |