From c47837af18ff9ba076ad826c5bc9606726195d78 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 3 Feb 2010 23:38:12 +0000 Subject: (write_grub::format) factorize code --- perl-install/bootloader.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index 07a770f49..95e3f7192 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1708,11 +1708,13 @@ sub write_grub { delete $bootloader->{gfxmenu}; } + my $format = sub { map { "$_ $bootloader->{$_}" } @_ }; + { my @conf; - push @conf, map { "$_ $bootloader->{$_}" } grep { defined $bootloader->{$_} } qw(timeout); - push @conf, map { "$_ $bootloader->{$_}" } grep { $bootloader->{$_} } qw(color password serial shade terminal viewport background foreground); + push @conf, $format->(grep { defined $bootloader->{$_} } qw(timeout)); + push @conf, $format->(grep { $bootloader->{$_} } qw(color password serial shade terminal viewport background foreground)); push @conf, map { $_ . ' ' . $file2grub->($bootloader->{$_}) } grep { $bootloader->{$_} } qw(gfxmenu); eval { -- cgit v1.2.1