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;