GithubStar/mpv
1
0
Fork 0
mirror of https://github.com/mpv-player/mpv.git synced 2026-10-29 07:06:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

TOOLS/zsh.pl: die loudly if mpv fails to run

Browse Source
This commit is contained in:
Philip Sequeira
2015-07-19 22:04:45 +02:00
committed by wm4
parent 47a62059a9
commit 2cf019ed70
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TOOLS/zsh.pl
+13 -2
View File
@@ -141,7 +141,7 @@ sub parse_main_opts {
my ($cmd, $regex) = @_;
my @list;
my @lines = split /\n/, `"$mpv" --no-config $cmd`;
my @lines = call_mpv($cmd);
foreach my $line (@lines) {
my ($name, $desc) = ($line =~ /^$regex/) or next;
@@ -206,7 +206,7 @@ sub parse_opts {
my ($cmd, $regex) = @_;
my @list;
my @lines = split /\n/, `"$mpv" --no-config $cmd`;
my @lines = call_mpv($cmd);
foreach my $line (@lines) {
if ($line !~ /^$regex/) {
@@ -226,3 +226,14 @@ sub parse_opts {
return @list;
}
sub call_mpv {
my ($cmd) = @_;
my $output = `"$mpv" --no-config $cmd`;
if ($? == -1) {
die "Could not run mpv: $!";
} elsif ($? != 0) {
die "mpv returned " . ($? >> 8) . " with output:\n$output";
}
return split /\n/, $output;
}