summaryrefslogtreecommitdiffstats
path: root/TOOLS
diff options
context:
space:
mode:
authorPhilip Sequeira <phsequei@gmail.com>2015-03-29 23:15:59 -0400
committerwm4 <wm4@nowhere>2015-03-31 15:05:08 +0200
commit638a398d628ab4bb04a040480ca09606f0b652de (patch)
tree72b3acfd798606204532b6db42fcfea1b02ce846 /TOOLS
parent33d587ffa9cef6d6876e02e4883f1ab27e8636ef (diff)
downloadmpv-638a398d628ab4bb04a040480ca09606f0b652de.tar.bz2
mpv-638a398d628ab4bb04a040480ca09606f0b652de.tar.xz
TOOLS/zsh.pl: use --no-config when calling mpv
Diffstat (limited to 'TOOLS')
-rwxr-xr-xTOOLS/zsh.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/TOOLS/zsh.pl b/TOOLS/zsh.pl
index 35592fe4cf..b53ca52dd6 100755
--- a/TOOLS/zsh.pl
+++ b/TOOLS/zsh.pl
@@ -7,15 +7,15 @@ use warnings;
my $mpv = $ARGV[0] || 'mpv';
-my @opts = parse_main_opts("$mpv --list-options", '^ (\-\-[^\s\*]*)\*?\s*(.*)');
+my @opts = parse_main_opts('--list-options', '^ (\-\-[^\s\*]*)\*?\s*(.*)');
-my @ao = parse_opts("$mpv --ao=help", '^ ([^\s\:]*)\s*: (.*)');
-my @vo = parse_opts("$mpv --vo=help", '^ ([^\s\:]*)\s*: (.*)');
+my @ao = parse_opts('--ao=help', '^ ([^\s\:]*)\s*: (.*)');
+my @vo = parse_opts('--vo=help', '^ ([^\s\:]*)\s*: (.*)');
-my @af = parse_opts("$mpv --af=help", '^ ([^\s\:]*)\s*: (.*)');
-my @vf = parse_opts("$mpv --vf=help", '^ ([^\s\:]*)\s*: (.*)');
+my @af = parse_opts('--af=help', '^ ([^\s\:]*)\s*: (.*)');
+my @vf = parse_opts('--vf=help', '^ ([^\s\:]*)\s*: (.*)');
-my @protos = parse_opts("$mpv --list-protocols", '^ ([^\s]*)');
+my @protos = parse_opts('--list-protocols', '^ ([^\s]*)');
my ($opts_str, $ao_str, $vo_str, $af_str, $vf_str, $protos_str);
@@ -154,7 +154,7 @@ sub parse_main_opts {
my ($cmd, $regex) = @_;
my @list;
- my @lines = split /\n/, `$cmd`;
+ my @lines = split /\n/, `"$mpv" --no-config $cmd`;
foreach my $line (@lines) {
my ($name, $desc) = ($line =~ /^$regex/) or next;
@@ -219,7 +219,7 @@ sub parse_opts {
my ($cmd, $regex) = @_;
my @list;
- my @lines = split /\n/, `$cmd`;
+ my @lines = split /\n/, `"$mpv" --no-config $cmd`;
foreach my $line (@lines) {
if ($line !~ /^$regex/) {