simplify horrible code

I let ARM maintainer decides if the following is better:

    $image = find { -e $_ } map { "/boot/$_-$kernel_version" } if_(arch() =~ /arm/ && $kernel_version =~ /versatile/, 'uImage'), qw(vmlinux vmlinuz);

1 files changed, 1 insertions, 13 deletions

diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config
index 99bc5409e..6af70b48d 100755
--- a/perl-install/standalone/bootloader-config
+++ b/perl-install/standalone/bootloader-config
@@ -54,19 +54,7 @@ if ($image) {
     }
     $image = "/boot/$image" if $image !~ m!^/!;
 } elsif ($kernel_version) {
-    # FIXME : test for vmlinux or vmlinuz existence and choose
-    # instead of using arch()
-    if (arch() =~ /mips/) {
-	$image = "/boot/vmlinux-$kernel_version";
-    } elsif (arch() =~ /arm/) {
-	if ($kernel_version =~ /versatile/) {
-	    $image = "/boot/vmlinuz-$kernel_version";
-	} else {
-	    $image = "/boot/uImage-$kernel_version";
-	}
-    } else {
-    	$image = "/boot/vmlinuz-$kernel_version";
-    }
+    $image = find { -e $_ } map { "/boot/$_-$kernel_version" } qw(vmlinux uImage vmlinuz);
 }