From 1ffeeec3b65432225b65004123e6c5a69581786b Mon Sep 17 00:00:00 2001
From: SuCicada <pengyifu@gmail.com>
Date: Mon, 22 Sep 2025 14:57:42 +0900
Subject: [PATCH] Fix [virtualbox][vboxmanage controlvm] subcommand completion
 order and regex are incorrect

---
 src/_virtualbox | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/_virtualbox b/src/_virtualbox
index 369abe9..344377a 100644
--- a/src/_virtualbox
+++ b/src/_virtualbox
@@ -345,10 +345,10 @@ _vboxmanage() {
             ':machine:_vboxmachines'
           ;;
         (controlvm)
-          local -a subcommands=(${(@f)"$(vboxmanage $words[1] | perl -wln -e 'm{^\s+([a-z][a-z-]+)} and print $1')"})
+          local -a subcommands=(${(@f)"$(vboxmanage $words[1] | perl -wln -e 'm{VBoxManage controlvm.*?\s+([a-z][a-z-]+)(?:\s|$)} and print $1')"})
           _arguments \
-            '1:commands:'"($subcommands)" \
-            ':machine:_vboxmachines'
+            '1:machine:_vboxmachines' \
+            '2:commands:'"($subcommands)"
           ;;
       esac
       ;;