diff options
author | Philip Sequeira <phsequei@gmail.com> | 2014-06-29 17:24:27 -0400 |
---|---|---|
committer | Alessandro Ghedini <alessandro@ghedini.me> | 2014-07-03 11:03:56 +0200 |
commit | e940afec158c262b05ad9b9f15292e3a61826c33 (patch) | |
tree | af6086cb24f98136b834abb4ada90f008f420aa3 | |
parent | 7450a7f5318612272871cdefd2b3571c3be3a37f (diff) | |
download | mpv-e940afec158c262b05ad9b9f15292e3a61826c33.tar.bz2 mpv-e940afec158c262b05ad9b9f15292e3a61826c33.tar.xz |
TOOLS/zsh.pl: untabify
-rwxr-xr-x | TOOLS/zsh.pl | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/TOOLS/zsh.pl b/TOOLS/zsh.pl index 7edd782c00..03d8bda6bd 100755 --- a/TOOLS/zsh.pl +++ b/TOOLS/zsh.pl @@ -98,40 +98,40 @@ EOS print $tmpl; sub parse_opts { - my ($cmd, $regex, $parsing_main_options) = @_; + my ($cmd, $regex, $parsing_main_options) = @_; - my @list; - my @lines = split /\n/, `$cmd`; + my @list; + my @lines = split /\n/, `$cmd`; - foreach my $line (@lines) { - if ($line !~ /^$regex/) { - next; - } + foreach my $line (@lines) { + if ($line !~ /^$regex/) { + next; + } - my $entry = $1; + my $entry = $1; - if ($parsing_main_options) { - $entry .= '=-'; - } + if ($parsing_main_options) { + $entry .= '=-'; + } - if (defined $2) { - my $desc = $2; - $desc =~ s/\:/\\:/g; + if (defined $2) { + my $desc = $2; + $desc =~ s/\:/\\:/g; - $entry .= ':' . $desc; - } + $entry .= ':' . $desc; + } - if ($parsing_main_options) { - $entry .= ':'; + if ($parsing_main_options) { + $entry .= ':'; - $entry .= '->ao' if ($1 eq '--ao'); - $entry .= '->vo' if ($1 eq '--vo'); - $entry .= '->af' if ($1 eq '--af'); - $entry .= '->vf' if ($1 eq '--vf'); - } + $entry .= '->ao' if ($1 eq '--ao'); + $entry .= '->vo' if ($1 eq '--vo'); + $entry .= '->af' if ($1 eq '--af'); + $entry .= '->vf' if ($1 eq '--vf'); + } - push @list, $entry - } + push @list, $entry + } - return @list; + return @list; } |