From 0d762a2029d46dacb7fb4616c90820e29c08722c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 8 Feb 2010 15:24:26 +0000 Subject: 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 fd9f68a08..13135cc59 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1668,11 +1668,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