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.44.0