From fe7515cf907df728f98986bb5fa6b841d8db6242 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 1 Feb 2023 17:58:01 +0300
Subject: [PATCH] Perl->zsh, anyway I use it
---
mpv/bin/mp | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/mpv/bin/mp b/mpv/bin/mp
index 9f03422..bdefc0a 100755
--- a/mpv/bin/mp
+++ b/mpv/bin/mp
@@ -1,3 +1,8 @@
-#!/usr/bin/env perl
+#!/usr/bin/env zsh
-exec "mpv", map { s/^([A-Z][A-Z])$/--profile=$1/ ; $_ } @ARGV;
+args=()
+for arg ($@) {
+ [[ $arg =~ "^[A-Z][A-Z]$" ]] && arg="--profile=$arg"
+ args=($args $arg)
+}
+exec mpv $args
--
2.51.0