diff options
| -rw-r--r-- | perl-install/bootloader.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 64d1d2e25..6b34749e5 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -563,7 +563,7 @@ sub set_append_with_key { my ($_simple, $dict) = @_; if ($val eq '') { - @$dict = grep { $_ ne $key } @$dict; + @$dict = grep { $_->[0] ne $key } @$dict; } else { push @$dict, [ $key, $val ]; } |