From f4516567ff686c374f23288a66162347b75ed37f Mon Sep 17 00:00:00 2001
From: Gavin Hayes <gavin@computoid.com>
Date: Sun, 26 Feb 2023 01:39:29 -0500
Subject: [PATCH] cocmd: allow passing unpaired } for passing Perl test

---
 libc/runtime/cocmd.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libc/runtime/cocmd.c b/libc/runtime/cocmd.c
index a70a6a771..259d63f04 100644
--- a/libc/runtime/cocmd.c
+++ b/libc/runtime/cocmd.c
@@ -685,7 +685,7 @@ int _cocmd(int argc, char **argv, char **envp) {
   unsupported['('] = true;
   unsupported[')'] = true;
   unsupported['{'] = true;
-  unsupported['}'] = true;
+  unsupported['}'] = false; // Perl t/op/exec.t depends on unpaired } being passed from the shell to Perl
   if (!_weaken(glob)) {
     unsupported['*'] = true;
     unsupported['?'] = true;