complete-run.pl: Check for missing executables

This commit is contained in:
Sascha Kruse 2012-09-18 15:36:40 +02:00 committed by Michael Stapelberg
parent d852c17468
commit f9c903ba62
1 changed files with 16 additions and 0 deletions

View File

@ -66,6 +66,22 @@ my $result = GetOptions(
pod2usage(-verbose => 2, -exitcode => 0) if $help; pod2usage(-verbose => 2, -exitcode => 0) if $help;
# Check for missing executables
my @binaries = qw(
../i3
../i3bar/i3bar
../i3-config-wizard/i3-config-wizard
../i3-dump-log/i3-dump-log
../i3-input/i3-input
../i3-msg/i3-msg
../i3-nagbar/i3-nagbar
);
foreach my $binary (@binaries) {
die "$binary executable not found" unless -e $binary;
die "$binary is not an executable" unless -x $binary;
}
@displays = split(/,/, join(',', @displays)); @displays = split(/,/, join(',', @displays));
@displays = map { s/ //g; $_ } @displays; @displays = map { s/ //g; $_ } @displays;