fix exit status

`exit` has higher precedence than `?:`, so `exit $has_errors ? 1 : 0` parses as `(exit $has_errors) ? 1 : 0`, which is not what was intended.
perl-catalyst · Nov 23, 2023 · 7c1f15f · 7c1f15f
1 parent d9a9286
commit 7c1f15f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/xt/author/http-server.t b/xt/author/http-server.t
@@ -92,7 +92,7 @@ sub prove {
 
         my $aggregator = $harness->runtests(@tests);
 
-        exit $aggregator->has_errors ? 1 : 0;
+        exit($aggregator->has_errors ? 1 : 0);
     } else {
         waitpid $pid, 0;
         return $?;