From 6099fd583aed6e0b14dd2ed2bc3eb0e773ca4721 Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <me@rgrinberg.com>
Date: Sun, 14 Apr 2024 14:23:58 +0100
Subject: [PATCH] refactor(perl): raise [Exit] without backtrace

Signed-off-by: Rudi Grinberg <me@rgrinberg.com>

<!-- ps-id: 345f2d65-1eb0-4ad2-b149-b1605e2e49de -->
---
 lib/perl.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/perl.ml b/lib/perl.ml
index a6786560..cf4a65fa 100644
--- a/lib/perl.ml
+++ b/lib/perl.ml
@@ -59,8 +59,8 @@ let parse multiline dollar_endonly dotall ungreedy s =
     let len = String.length s' in
     try
       for j = 0 to len - 1 do
-        try if s'.[j] <> s.[!i + j] then raise Exit
-        with _ -> raise Exit
+        try if s'.[j] <> s.[!i + j] then raise_notrace Exit
+        with _ -> raise_notrace Exit
       done;
       i := !i + len;
       true