[Libguestfs] [PATCH 1/2] tests/syslinux: factorize search for mbr.bin

--- tests/syslinux/test-syslinux.pl | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/tests/syslinux/test-syslinux.pl b/tests/syslinux/test-syslinux.pl index d86c095..8a227d4 100755 --- a/tests/syslinux/test-syslinux.pl +++ b/tests/syslinux/test-syslinux.pl @@ -29,13 +29,20 @@ my $bootloader = $ENV{BOOTLOADER} || "syslinux"; my $disk = "$bootloader-guest.img"; # Find prerequisites. -my $mbr = "/usr/share/syslinux/mbr.bin"; -unless (-f $mbr) { - $mbr = "/usr/lib/syslinux/mbr.bin"; - unless (-f $mbr) { - print "$0: mbr.bin (from SYSLINUX) not found, skipping test\n"; - exit 77; - } +my $mbr; +my @mbr_paths = ( + "/usr/share/syslinux/mbr.bin", + "/usr/lib/syslinux/mbr.bin" +); +foreach my $m (@mbr_paths) { + if (-f $m) { + $mbr = $m; + last; + } +} +if (not length ($mbr)) { + print "$0: mbr.bin (from SYSLINUX) not found, skipping test\n"; + exit 77; } print "mbr: $mbr\n"; -- 1.9.0